Предмет: Информатика,
автор: as190207
Напечатать 10 случайных чисел в среде Паскаль. СРОЧНО.Пожалуйста
Ответы
Автор ответа:
2
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
KnowsUser1:
Можно даже без массивов
Автор ответа:
1
Ответ:
begin
for var i := 1 to 10 do print(random(100500));
end.
Совсем народ уже обленился. Настолько то простое и очевидное задание, неужели сложно самостоятельно сделать?
Похожие вопросы
Предмет: Английский язык,
автор: Аноним
Предмет: Русский язык,
автор: Аноним
Предмет: Русский язык,
автор: zhyk1668
Предмет: Химия,
автор: landrover97
Предмет: Математика,
автор: abcde21314228625