Заполнить массив из 15 ти элементов случайным образом целыми числами лежащими в отрезке (5,50). Вывести значения элементов в строку. (элементы разделены пробелом).

var

i : integer; / / объявляем переменную целочисленного типа.

arr : array [1 ... 15] of integer; / / объявляем массив.

Begin

writeln ('Содержимое массива:'); / / вывод строки на экран.

for i: = 1 to 15 do / / начало цикла.

begin

arr[i] : = random (5,50); / / заполняем элемент массива случайным числом от 5 до 50.

write (arr[i],' '); / /вывод строки на экран.

end;

End.