Решить в паскале авс вывести на экран 10 случайных чисел из диапазона от 1 до 9 (включительно)

natalichexova natalichexova    2   01.06.2019 01:50    0

Ответы
fakersot fakersot  02.07.2020 11:20
Program qq;
var a,i:integer;
begin
for i:=1 to 10 do 
 begin
  a:=random(9)+1;
 writeln(a);
 end;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика