Регистрация
Tgfdvbgg
20.01.2023 10:21
Информатика
Есть ответ 👍

Напечатать 10 случайных чисел в среде Паскаль

103
461
Посмотреть ответы 3

Ответы на вопрос:

nastyushanaumenko
nastyushanaumenko
4,7(37 оценок)

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

khomyak2016
khomyak2016
4,7(48 оценок)

begin

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

end.

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

лолодоидтд
лолодоидтд
4,6(14 оценок)
22*2 44 12*2 24 11* 2 22 44+24+22 90 а потом 90+10 это 10-x будет 100

Популярно: Информатика