Сначала задано число 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.