Еще одна задача Pascal

Question

Еще одна задача Pascal

сергей ерёмин Знаток (332), на голосовании 7 лет назад

Имеется массив A из N произвольных чисел A(N), среди которых есть положительные, отрицательные и равные нулю. Составить программу для вычисления всех четных положительных чисел. Например, если
A={2,4,-3,0,5,1,6}

Answer 1

const n=35;
var a: array[1..n] of integer;
i:integer;
begin
writeln('Massiv');
for i:=1 to n do
begin
a[i]:=random(20)-10;
write(a[i],' ');
end;
writeln;
writeln('Chetn');
for i:=1 to n do
if (a[i] mod 2=0) and (a[i]>0) then write(a[i],' ')
end.