Составьте программу, которая формирует массив из 10 случайных целых чисел от 5 до 15 и подсчитывает количество нечетных чисел. (и выводит их)

Question

Информатика

Акиндин

9 января, 17:29

Составьте программу, которая формирует массив из 10 случайных целых чисел от 5 до 15 и подсчитывает количество нечетных чисел. (и выводит их)

+5

Ответы (1)

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

Андрон · Answer 1

Var

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

i:integer;

begin

for i:=1 to 10 do

begin

a[i]:=random (5,15) ;

if a[i] mod 2 0 then

write (a[i],' ') ;

end;

end.