Кол-во непарных элементов массива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 ...
Кол-во непарных элементов массива
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.
ему мод не нравится в условии=(
что делать?
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы