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

Question

Информатика

Велизар

12 января, 03:16

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

+3

Ответы (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

Коняша 12 января, 05:11

0

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