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

Question

Информатика

Велизар

14 апреля, 12:29

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

+5

Ответы (2)

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

Феосовия · Answer 1

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.

Коняша · Answer 2

Коняша 14 апреля, 13:44

0

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