Дана последовательность натуральных чисел a1,a2,...,an. Создать массив из четных чисел...

Question

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

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.