Юрий Моисеев
Оракул
(83944)
7 лет назад
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.
A={2,4,-3,0,5,1,6}