Задача с массивами Опции

[alextador]

заполнить случайными числами одномерный массив из 20 вещественных элементов. Запросить у пользователя целые числа н1<н2<=20. Окрасить массив при выводе на экран зеленым цветом за исключением элементов с номерами от н1 до н2, которые окрасить надо желтым цветом.
Бредово решил, либо все красит зелёным либо все желтым

[IUnknown]

У тебя вообще ничего не будет окрашивать, и все элементы в принципе не выведутся, выведется только один, у тебя Write не в цикле. Так что ты решал какую-то другую задачу.

  { Ввод n1, n2 }
   textcolor(green);
   for i:=1 to 20 do
   begin
      m[i] := random(45);
      if i = n1 then textcolor(yellow)
      else if i = n2 + 1 then textcolor(green);

      write(m[i]:4);
   end;
   writeln;

работает по условию.