Ну два последних сделаю :)
5.
uses crt;
const N=10;
var a:array [1..N] of integer;
    k,x:integer;
begin
     for x:=1 to N do
     begin
          write('a[',x,']:');
          readln(a[x]);
          if a[x]=0 then inc(k);
     end;
     writeln('Количество нулей: ',k);
end.
---
6.
uses crt;
const N=10;
var a:array [1..N] of integer;
    k,x:integer;
begin
     for x:=1 to N do
     begin
          write('a[',x,']:');
          readln(a[x]);
          if a[x] mod 2=0 then inc(k);
     end;
     writeln('Количество четных элементов: ',k);
end.