Question

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

Answer 1

N: array [0..19] of integer;
Begin
For var i := 0 to N.length()-1 do
Begin
N[i] := random(49);
Write(N[i], ‘ ‘);
End;
End.

Answer 2

Конечно, я помогу вам с этой программой на языке Паскаль. Для заполнения массива случайными значениями и вывода его содержимого в строчку, вы можете использовать следующий код:

pascalCopy code
program FillArrayWithRandomNumbers;

const
  ArraySize = 20;

var
  RandomArray: array[1..ArraySize] of Integer;
  i: Integer;

{ Функция для генерации случайного числа от 0 до 49 }
function RandomNumber: Integer;
begin
  Randomize; // Инициализация генератора случайных чисел
  Result := Random(50); // Генерация числа от 0 до 49
end;

begin
  { Заполнение массива случайными числами }
  for i := 1 to ArraySize do
    RandomArray[i] := RandomNumber;

  { Вывод полученного массива в строчку }
  Write('Случайный массив: ');
  for i := 1 to ArraySize do
    Write(RandomArray[i], ' ');

  ReadLn; // Пауза, чтобы окно консоли не закрылось сразу
end.

Этот код создаст массив RandomArray из 20 элементов, каждый из которых будет заполнен случайным числом от 0 до 49. Затем он выведет содержимое этого массива в строчку.