Сначала задано число n - количество элементов в массиве. далее через пробел записаны n чисел - элементы массива. необходимо вывести все четные элементы массива (то есть те элементы, которые являются четными числами).

Так это задача А 12 или В7 на сайте  Inf.rechyege.ru
там есть отвееты 

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.