Заполнить массив случайными числами в заданном интервале - Pascal

Формулировка задачи:

Заполните массив C[10] случайными числами в интервале от 5 до 15 и вывести его на экран

Решение задачи: «Заполнить массив случайными числами в заданном интервале»

Листинг программы

program massiv4;
const
  n = 10;
var 
  a : array[1..n] of integer;
  i : integer;
begin
  randomize;
  for i:=1 to n do
    a[i] := random(5,15);
 
 
  write('Массив: ');
  for i:=1 to n do
    write(a[i]:4);
  writeln;
 
end.

Объяснение кода листинга программы

В данном коде на языке Pascal создается программа massiv4. Константа n определяет размер массива, который в данном случае равен 10. Переменная a представляет собой массив целых чисел, который будет заполняться случайными числами в заданном диапазоне. Переменная i используется для итерации по элементам массива. С помощью команды randomize инициализируется генератор случайных чисел. Затем в цикле for происходит заполнение массива случайными числами в диапазоне от 5 до 15. Далее выводится сообщение с содержимым массива. В итоге программа выводит на экран массив случайных чисел в заданном диапазоне.