GAECHKA
Твоя помощница в решении задач

Изменить программу

Привет пользователи)
Нет времени вообще,помогите изменить что бы выполнялось такое задание: В целочисленном одномерном массиве из N элементов найти количество четных элементов. Если таковых нет, то сообщить об этом.

сейчас он ищет не четные

var
  a:array[1..1000] of longint;
  i,n,kol:longint;
begin
writeln('vvedite kol-vo elementov massiva');
readln(n);
for i:=1 to n do
begin
writeln('a[',i,']=');
readln(a[i]);
if a[i] mod 2=2 then
inc(kol);
end;
writeln('kol-vo nechetnih elementov=',kol,' iz ',n);
end.
0
вопрос задан

Источник


1 ответ
сейчас он ищет не четные
if a[i] mod 2=2 then
Это у вас нечетные?
четные a[i] mod 2=0, нечетные if odd(a[i]) или a[i] mod d0