Question

Сформировать и вывести на экран массив элементов которого заданы датчиком случайных чисел на интервале [-56;26] (размер произвольный) Паскаль

Answer 1

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-56,26); a.Println
end.

Пример
n= 13
10 19 20 0 2 14 -16 -48 0 7 -51 19 -22

Ограничение на размер массива (n) - только здравый смысл.

Answer 2

Для генерации массива случайных чисел на интервале [-56;26] в Паскале, можно воспользоваться встроенной функцией Random для генерации случайных чисел и затем заполнить массив этими значениями. Вот пример кода на языке Паскаль:

pascalCopy code
program RandomArray;

const
  Size = 10; // Размер массива, можно изменить на любое другое значение

type
  IntArray = array[1..Size] of Integer;

var
  RandomNumbers: IntArray;
  i: Integer;

// Процедура заполнения массива случайными числами
procedure FillRandomArray(var arr: IntArray);
var
  i: Integer;
begin
  for i := 1 to Size do
    arr[i] := Random(83) - 56; // Генерируем случайное число в диапазоне [-56;26]
end;

// Процедура вывода массива на экран
procedure PrintArray(const arr: IntArray);
var
  i: Integer;
begin
  for i := 1 to Size do
    Write(arr[i], ' ');
  Writeln;
end;

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

  FillRandomArray(RandomNumbers); // Заполняем массив случайными числами
  PrintArray(RandomNumbers); // Выводим массив на экран

end.

В данном примере программа создает массив RandomNumbers размером 10 элементов, заполняет его случайными числами из интервала [-56;26] с помощью процедуры FillRandomArray, а затем выводит его на экран с помощью процедуры PrintArray. Вы можете изменить значение константы Size, чтобы получить массив другого размера.