Заполните массив на 50 элементов целыми значениями, лежащими в диапазоне от - 22 до 15, и организуйте вывод элементов с индексами от 14 до 34

var

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

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

begin

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

begin

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

if ((i >=14) and (i < = 34)) then / / если индекс элемента от 14 до 34 выводим его на экран.

write (arr[i],' ');

end;

end.