Variant 1
const
n = 10;
var
a: array [1..n] of integer;
i: integer;
begin
Randomize;
Writeln('10 случайных чисел');
for i := 1 to n do
begin
a[i] := Random(20);
Write(a[i], ' ');
end;
end.
Variant 2
begin
ArrRandom(10, 0, 20).Println;
end.
Тестовое решение
10 случайных чисел
13 15 11 3 5 13 14 17 8 9
begin
for var i := 1 to 10 do print(random(100500));
end.
Совсем народ уже обленился. Настолько то простое и очевидное задание, неужели сложно самостоятельно сделать?
