Задать вопрос
16 ноября, 19:00

Дана последовательность натуральных чисел a1, a2, ..., an. Создать массив из четных чисел этой последовательности. Если таких чисел нет то, вывести сообщение об этом факте

Можно на языке Паскаля

+1
Ответы (1)
  1. 16 ноября, 22:25
    0
    Const n=100;

    Var a, b:array[1 ... n] of integer;

    I, f, k, j:integer;

    Begin

    J:=1; f:=0;

    For i:=1 to n do begin

    Read (a[i]) ;

    If a[i] mod 2=0 then begin f:=1; b[j]:=a[i]; inc (j) end end;

    If f=0 then write ("net") else for i:=1 to j-1 do write (b[i]," ")

    End.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Дана последовательность натуральных чисел a1, a2, ..., an. Создать массив из четных чисел этой последовательности. Если таких чисел нет то, ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы