Кол-во непарных элементов массива

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.

ему мод не нравится в условии = (

что делать?

Question

Информатика

Патрикей

19 ноября, 20:35

Кол-во непарных элементов массива

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.

ему мод не нравится в условии = (

что делать?

+2

Ответы (1)

Знаете ответ на вопрос?

Матфей · 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.

Кол-во непарных элементов массиваconstn = 5;vara: array[1 ... n] of integer; i, c: integer;beginc : = 0;for i:=1 to n dobeginreadln (a[i]) ;if mod (a[i]) o then c:=c+1end;writeln (c) ;end.ему мод не нравится в условии = (что делать?