Предмет: Информатика,
автор: koljadurnikin2004
Написать прогу, которая находит в массиве из 100 элементов чётные элементы и считает их кол-во.
Ответы
Автор ответа:
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.
Похожие вопросы
Предмет: Музыка,
автор: bebe97991
Предмет: Математика,
автор: arinamagidson
Предмет: Геометрия,
автор: whiteangel7
Предмет: Математика,
автор: Аноним
Предмет: Алгебра,
автор: benevolent