Заполните массив на 50 частей целыми значениями, лежащими в диапазоне от

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 gt;=14) and (i lt;= 34)) then // если индекс элемента от 14 до 34 выводим его на экран.
     write(arr[i], );
    end;
end.