По введенному номеру цвета от 1 до 7 ввести его название в Радуге если введена другая цифра то выдать сообщение "такого цвета радуги нет"​

1) Вычислительные.
2) О, много. kTorrent, YaST2, Clementine, Wine, okular, kate, могу перечислять ещё долго.
3) В развлекательных, коммуникационных, вычислительных целях в школах, домах, офисах.
4) Для проведения вычислений в условиях, где использование настольного компьютера невозможно или затруднено его низкой мобильностью.
5) КПК, смартфон, планшет, нетбук, ультрабук, ноутбук, настольный компьютер (или десктоп), сервер, суперкомпьютер.
6) Серверы.
7) В сложных вычислительных операциях вроде создания прогнозов погоды.

Const
  nm = 50;{максимальная длина массива}

var
  i, n, max, p: integer;
  a: array[1..nm] of integer;

begin
  Write('Введите количество элементов в массиве: ');
  Readln(n);
  max := -32768;
  Write('Введите элементы массива через пробел ');
  for i := 1 to n do
  begin
    Read(a[i]);
    if max <= a[i] then
    begin
      max := a[i]; p := i
    end
  end;
  Writeln('Последний максимальный элемент ', max, ' имеет номер ', p)
end.

Тестовое решение:

Введите количество элементов в массиве: 10
Введите элементы массива через пробел 4 -5 6 -9 1 0 6 3 -1 5
Последний максимальный элемент 6 имеет номер 7