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

Question

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

iurii_moiseev_149 · Accepted Answer

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.