Question

составьте программу на языке Паскаль, которая формирует массив B из 15 случайных чисел из отрезка [23;57] и выводит эти числа в строку.

Answer 1

program m3;

var i,x : integer ;

B: array[0..15] of integer ;

begin

randomize ;

for i := 1 to 15 do

B[i] := random(35)+23 ;

for i := 1 to 15 do

write(B[i] , ' ') ;

end.

Answer 2

Приведенная ниже программа на языке Паскаль формирует массив B из 15 случайных чисел из отрезка [23;57] и выводит эти числа в строку:

program RandomArray;

var
  B: array[1..15] of Integer;
  i: Integer;

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

// Заполнение массива B случайными числами из отрезка [23;57]
  for i := 1 to 15 do
  begin
    B[i] := Random(35) + 23; // Генерация случайного числа из отрезка [23;57]
  end;

// Вывод чисел массива B в строку
  for i := 1 to 15 do
  begin
    Write(B[i], ' '); // Вывод числа и пробела
  end;

Readln; // Ожидание нажатия клавиши Enter
end.

Программа использует генератор случайных чисел `Randomize` для инициализации генератора случайных чисел. Затем с помощью цикла `for` заполняется массив B случайными числами из отрезка [23;57], используя функцию `Random(35) + 23`, которая генерирует случайное число от 0 до 34 и прибавляет 23, чтобы получить число из отрезка [23;57]. Затем с помощью второго цикла `for` числа массива B выводятся в строку с использованием процедуры `Write`, а после этого программа ожидает нажатия клавиши Enter с помощью процедуры `Readln`.