сформулировать и вывести на экран последовательности из N элементов датчиком случайных чисел из промежутка (- 23; 34)
Ответы
Ответ дал:
0
var
a : array [1..1000] of longint;
i,n : longint;
begin
readln(n);
for i:=1 to n do a[i]:=random(58)-23;
for i:=1 to n do writeln(a[i]);
end.
a : array [1..1000] of longint;
i,n : longint;
begin
readln(n);
for i:=1 to n do a[i]:=random(58)-23;
for i:=1 to n do writeln(a[i]);
end.
Ответ дал:
0
// PascalABC.NET 3.0, сборка 1128
begin
SeqRandom(ReadInteger('Количество элементов='),-23,34).Println
end.
Тестовое решение:
Количество элементов= 15
0 2 -7 -12 3 22 13 32 -14 -15 28 -17 10 34 -6
begin
SeqRandom(ReadInteger('Количество элементов='),-23,34).Println
end.
Тестовое решение:
Количество элементов= 15
0 2 -7 -12 3 22 13 32 -14 -15 28 -17 10 34 -6
Вас заинтересует
1 год назад
1 год назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад