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

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

Question

Информатика

Ксенюша

16 ноября, 19:00

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

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

+1

Ответы (1)

Знаете ответ на вопрос?

Вовуша · Answer 1

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.