Дан массив из 10 чисел найти количество чисел делящихся на 2

Question

Информатика

Нифонт

9 декабря, 12:56

Дан массив из 10 чисел найти количество чисел делящихся на 2

+5

Ответы (2)

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

Иванна · Answer 1

Иванна 9 декабря, 15:57

0

4,6,8,10,12,14,16,18,20,22

Пальмира · Answer 2

var

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

i, s: integer;

begin

for i : = 1 to 10 do

begin

a[i] : = random (10) ;

write (a[i]:2) ;

end;

writeln () ;

for i : = 1 to 10 do

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

inc (s) ;

writeln (s) ;

end.