Question

Заполнить массив случайными целыми числами от 70 до 150 и вывести на печать в строку через запятую. На языке Pascal

Answer 1

// PascalABC.NET

begin

 var n := ReadInteger('n =');

 var a := ArrRandom(n, 70, 150);

 a.Print(',')

end.

Answer 2

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

pascalCopy code
program RandomArray;

const
  ARRAY_SIZE = 10; // Размер массива

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

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

  // Заполнение массива случайными числами
  for i := 1 to ARRAY_SIZE do
    arr[i] := Random(81) + 70; // Генерация случайного числа от 0 до 80 и смещение на 70

  // Вывод массива на печать
  for i := 1 to ARRAY_SIZE - 1 do
    Write(arr[i], ', ');
  Writeln(arr[ARRAY_SIZE]);
end.

В этом примере ARRAY_SIZE определяет размер массива (в данном случае 10). Функция Randomize инициализирует генератор случайных чисел, а функция Random используется для генерации случайных чисел в заданном диапазоне. Код заполняет массив случайными числами от 70 до 150, а затем выводит его на печать в строку через запятую.