Program Massiv;
Uses Crt;
const n=10; // n - которое мы задали
var array[1..n] of integer;
var i:integer;
begin
clrscr;
write('Размер массива:',n,'Исходный массив:');
for i:=1 to n do
begin
a[i]:=random(41)-20;
write(a[i],' ');
end;
writeln;
write('Чётные элементы массива:');
for i:=1 to n do if (a[i] mod 2)=0 then write(a[i],' ');
readkey;
end.