program v8;

var a:array[1..30] of integer;

 n,i:integer;

begin

 writeln('Введите размерность матрицы: '); readln(n);

randomize;

for i:=1 to n do a[i]:=random(100)-50;

for i:=1 to n do write(a[i]:5); writeln;

writeln('Четные элементы матрицы: ');

for i:=1 to n do  

 begin

 if a[i] mod 2=0 then writeln(a[i]);

 end;

end.