Домашняя работа . Разобрать и выучить задачи

 Вычислить количество четных элементов в массиве.

 var a:array[1..5] of integer; n,x,i:integer;
 begin
writeln('введите элементы массива');
 for  i:= 1 to 5 do   read(a[i]);
 for  i:= 1 to 5 do
  if a[i] mod 2 = 0 then
   n:= n +1 ;
  writeln('есть четные в количестве ', n);
end.

Вычислить количество нечетных элементов в массиве.

 var a:array[1..5] of integer; n,x,i:integer;
 begin
writeln('введите элементы массива');
 for  i:= 1 to 5 do   read(a[i]);
 for  i:= 1 to 5 do
  if a[i] mod 2 = 1 then
   n:= n +1 ;
  writeln('есть нечетные в количестве ', n);
end.