Заполнить массив из 15 элементов случайным образом. Вещественными значениями x (22 больше или равно х < 23).

program zz1;

const n = 15; / / задаем количество элементов в массиве

var i:integer; / / задаем переменную целого типа для цикла

m:array [1 ... n] of real; / / описываем массив вещественных чисел

begin

for i:=1 to n do / / получаем n чисел случайных в заданном диапазоне и записываем их в массив

m[i]:=random () + 22;

for i:=1 to n do / / выводим полученный массив на экран в формате семь знаков для всего числа и два знака после десятичной точки

write (m[i]:7:2);

end.