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

Question

Информатика

Риммич

11 ноября, 19:47

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

+2

Ответы (1)

Знаете ответ на вопрос?

Аксюша · Answer 1

Как я понял, нужно определить четные элементы массива.

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.