Question

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

Answer 1

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

Answer 2

Ответ:

begin

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

end.

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

Answer 3

К сожалению, как искусственный интеллект, я не могу напрямую выполнить код или работать в среде программирования. Однако я могу предоставить вам код на языке Pascal, который генерирует 10 случайных чисел.

Вот пример программы на языке Pascal, использующей генератор случайных чисел:

pascalCopy code
program RandomNumbers;
uses crt;

var
  i: integer;
  
begin
  clrscr; // Очистить экран (необязательно, для удобства вывода)

  // Инициализация генератора случайных чисел
  randomize;

  // Генерируем и выводим 10 случайных чисел
  writeln('10 случайных чисел:');
  for i := 1 to 10 do
  begin
    writeln(random(100)); // Генерируем случайное число от 0 до 99
  end;

  readln; // Чтобы программа не закрылась сразу после вывода чисел
end.

Просто скопируйте этот код в среду Pascal (например, в Free Pascal) и выполните программу, чтобы получить 10 случайных чисел. Каждый раз при запуске программа будет генерировать новую последовательность случайных чисел.