Question

Срочно даю 30 баллов Паскаль Составить программу, заполняющую массив из 20 целых чисел случайными значениями от 0 до 49. Вывести получившийся массив (в строчку).

Answer 1

PascalABC.NET 3.4.2, сборка 1887 от 30.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a := ArrRandom(20, 0, 49);

 a.Println

end.

Пример

0 22 0 5 2 43 35 47 15 35 33 31 15 27 2 18 19 43 29 48

Answer 2

Конечно! Вот пример программы на языке Паскаль, которая заполняет массив из 20 целых чисел случайными значениями от 0 до 49 и выводит получившийся массив:

pascalCopy code
program RandomArray;

const
  ARRAY_SIZE = 20;
  MAX_VALUE = 49;

var
  arr: array[1..ARRAY_SIZE] of Integer;
  i: Integer;

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

  // Заполнение массива случайными значениями от 0 до 49
  for i := 1 to ARRAY_SIZE do
    arr[i] := Random(MAX_VALUE + 1);

  // Вывод массива в строчку
  for i := 1 to ARRAY_SIZE do
    Write(arr[i], ' ');

  ReadLn;
end.

Каждый раз при запуске программы, вы получите новый массив с другими случайными значениями от 0 до 49.