Найти количество четных чисел в одномерном массиве размерностью 5.

Question

Информатика

Люция

8 ноября, 19:14

Найти количество четных чисел в одномерном массиве размерностью 5.

+3

Ответы (1)

Знаете ответ?

Ирина · Answer 1

var

a : array [1 ... 5] of integer;

count, i; integer;

begin

count : = 0;

for i : = 1 to 5 do read (a[i]) ;

for i : = 1 to 5 do

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

writeln (count) ;

end.