Предмет: Информатика, автор: as190207

Напечатать 10 случайных чисел в среде Паскаль. СРОЧНО.Пожалуйста​

Ответы

Автор ответа: HappyCoder
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: Можно даже без массивов
HappyCoder: Можно) Тупо в цикл)
Автор ответа: KnowsUser1
1

Ответ:

begin

 for var i := 1 to 10 do print(random(100500));

end.

Совсем народ уже обленился. Настолько то простое и очевидное задание, неужели сложно самостоятельно сделать?


as190207: Просто бывает такое, что предмет не получается, а в остальных все нормально
as190207: А еще у меня комп сломался
Похожие вопросы
Предмет: Химия, автор: landrover97