программа формирует массив из 10 случайных целых чисел из интервала от 10 до 80. Вывести на экран элементы массива в строку с разделителем пробел.
Answers & Comments
vladmor
Если надо на PascalABC.Net, то в версии языка 3.2 можно так:
begin
for var i:=1 to 10 do
print(random(10,80));
end.
Вариант №2 (классический)
var i:integer;
begin
for i:=1 to 10 do
write((random(91)-10),' ');
end.
Вариант №3 (с массивом)
var i:integer;
a:array[1..10]of integer;
begin
for i:=1 to 10 do begin
a[i]:= random(91)-10;
write(a[i],' ');
end;
end.
0 votes Thanks 1
Mrx7777
uses crt; var n10:array[1..10] of integer; i:integer; begin randomize; for i:=1 to 10 do n10[i]:=random(6)+1; writeln('Значения внесены в массив'); for i:=1 to 10 do writeln(n10[i]); readkey; end.
Mrx7777
что то похожее на это только рандомные числа от 10 до 80
vladmor
Внимательно читаем условие. Там ни слова не сказано про использование массивов. Не надо усложнять себе жизнь.
Answers & Comments
begin
for var i:=1 to 10 do
print(random(10,80));
end.
Вариант №2 (классический)
var i:integer;
begin
for i:=1 to 10 do
write((random(91)-10),' ');
end.
Вариант №3 (с массивом)
var i:integer;
a:array[1..10]of integer;
begin
for i:=1 to 10 do begin
a[i]:= random(91)-10;
write(a[i],' ');
end;
end.
var n10:array[1..10] of integer;
i:integer;
begin
randomize;
for i:=1 to 10 do
n10[i]:=random(6)+1;
writeln('Значения внесены в массив');
for i:=1 to 10 do
writeln(n10[i]);
readkey;
end.