Найти количество четных элементов массива, состоящих из 8 элементов. Паскаль.

Question

Информатика

Манзиля

4 июля, 03:08

Найти количество четных элементов массива, состоящих из 8 элементов. Паскаль.

+4

Ответы (1)

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

Ребека · Answer 1

Var a: array[1 ... 8] of Integer;

i, n: Integer;

begin

for i:=1 to 8 do readln (a[i]) ;

for i:=1 to 8 do

begin

if a[i] mod 2=0 then inc (n) ;

end;

writeln (n) ;

end.