кол-во непарных элементов массива
const
  n = 5;
var
  a: array[1..n] of integer; i, c: integer;
begin
  c := 0;
  for i:=1 to n do
  begin
                   readln(a[i]);
                   if mod(a[i])<>o then c:=c+1
                     end;
  writeln(c);
end.
ему мод не нравится в условии=(
что делать?

constn=5;varmas:array[1..n] of integer;i,sum:integer;beginsum:=0;for i:=1 to n dobeginreadln(mas[i]);if mas[i] mod 2 = 0 then // Если mas[i] делиться на 2 без остатка,то...sum:=sum+1;end;writeln(sum);end.