Question

Составить программу, которая формирует массив K из 122 случайных целых чисел, принадлежащих промежутку (18;31]. (Параметром цикла является переменная ј Нумерация начинается с 1)Записать цикл for паскальпомогите пожалуйста ​

Answer 1

Ответ:

Объяснение:

for i := 1 to 122 do

   K[i] := random(13) + 19;

Answer 2

Конечно! Вот пример программы на языке Паскаль, которая формирует массив K из 122 случайных целых чисел, принадлежащих промежутку (18;31]:

pascalCopy code
program GenerateRandomArray;
var
  K: array[1..122] of integer;
  i: integer;
begin
  Randomize;
  
  for i := 1 to 122 do
  begin
    K[i] := Random(14) + 18;
  end;
  
  // Выводим элементы массива K
  for i := 1 to 122 do
  begin
    WriteLn(K[i]);
  end;
end.

Программа использует функцию Randomize, чтобы инициализировать генератор случайных чисел, и функцию Random, чтобы генерировать случайные числа в диапазоне от 0 до 13. Затем каждое сгенерированное число увеличивается на 18, чтобы попасть в промежуток (18;31]. Результаты сохраняются в массиве K. После этого элементы массива выводятся на экран.