Решите с циклами while и if: определите количество - вопрос №2625241 от qpdgjekelxnvi 20.01.2021 04:57

Question

Информатика: Решите с циклами while и if: определите количество четных элементов в последовательности, завершающейся числом 0.

qpdgjekelxnvi · Answer

Как я понял, нужно определить четные элементы массива.
Var a:array[1..6] of integer;
x,n:integer;
begin
For x:=1 to 6 do
read (a[x]);
n:=0;
For x:=1 to 6 do
If a[x] mod 2=0 then n:=n=1;
Writeln(n);
end.