Решите с циклами while и if: определите количество - вопрос №2625918 от mamazomdi 04.09.2020 12:09

Question

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

mamazomdi · 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.