В одномерном массиве найти количество чётных элементов

@maksimiw · Регистрация: 09.06.2019

Author24 — интернет-сервис помощи студентам

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

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

Pascal

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.

@Puporev · 20.06.2019, 21:16

Сообщение от maksimiw

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

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

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	20.06.2019, 21:16	2
	Сообщение от maksimiw сейчас он ищет не четные if a[i] mod 2=2 then Это у вас нечетные? четные a[i] mod 2=0, нечетные if odd(a[i]) или a[i] mod d<>0 0