Ответы 2
var n, i: integer;
begin
//включаем рандом
randomize;
//Вводим N
readln(n);
//генерируем N случайных чисел до 100.
for i:=1 to n do
begin
n:=random(100);
//Выводим эти числа
write (n, ' ');
end;
writeln;
end.
begin
//включаем рандом
randomize;
//Вводим N
readln(n);
//генерируем N случайных чисел до 100.
for i:=1 to n do
begin
n:=random(100);
//Выводим эти числа
write (n, ' ');
end;
writeln;
end.
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
SeqRandom(ReadInteger('n='),1,99).Println
end.
Тестовое решение:
n= 30
8 39 37 3 4 57 33 31 44 12 32 80 14 19 73 64 81 82 36 6 48 12 84 81 6 66 36 51 40 69
begin
SeqRandom(ReadInteger('n='),1,99).Println
end.
Тестовое решение:
n= 30
8 39 37 3 4 57 33 31 44 12 32 80 14 19 73 64 81 82 36 6 48 12 84 81 6 66 36 51 40 69
Премиум статус
Получайте самые быстрые
ответы на свои вопросы
ответы на свои вопросы
У вас остались
вопросы?
вопросы?
Помоги другим с вопросами
по информатике
по информатике
