Question

кол-во непарных элементов массива
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.
ему мод не нравится в условии=(
что делать?

Answer 1

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