ПОМОГИТЕ ПОЖАЛУЙСТА РЕШИТЬ ЗАДАЧУ В ПАСКАЛЕ АВСвывести на экран 10 случайных чисел из диапазона от 1 до 9 (включительно)
ПОМОГИТЕ ПОЖАЛУЙСТА РЕШИТЬ ЗАДАЧУ В ПАСКАЛЕ АВС
вывести на экран 10 случайных чисел из диапазона от 1 до 9 (включительно)
Гость
Ответ(ы) на вопрос:
Гостьprogram qq;
var a,i:integer;
begin
for i:=1 to 10 do
begin
a:=random(9)+1;
writeln(a);
end;
end.
Не нашли ответ?
Похожие вопросы