Предмет: Информатика, автор: koljadurnikin2004

Написать прогу, которая находит в массиве из 100 элементов чётные элементы и считает их кол-во.

Ответы

Автор ответа: samsonenko2002
1

var

a:array[1..100] of integer;

x,i:integer;

begin

x:=0;

for I:=1 to 100 do

begin

read(a[i]);

if a[i] mod 2 = 0 then x:=x+1;

end;

writeln(x)

end.

Похожие вопросы
Предмет: Алгебра, автор: benevolent