Заполните массив состоящий из 10 целых нечетных чисел на интервале [5..10) и выведите на экран.

g116663 g116663    1   15.12.2021 11:08    1

Ответы
ПрофиЗнания ПрофиЗнания  05.02.2022 17:13

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

i:integer;

begin

randomize;

for i:=1 to 10 do

begin

repeat

a[i]:=random(5)+5;

until a[i] mod 2 <> 0;

write(a[i],' ')

end

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика