Дан массив 7 элементов, заполненный различными двузначными числами. Организовать ввод с клавиатуры, т.к. при заполнении случайным образом могут быть повторения. Вывести массив в строку: номер - значение. Определить:
1) максимальный элемент и его порядковый номер;
2) минимальный элемент и его порядковый номер;
3) во сколько раз (округлить до целых) максимальный больше минимального.

// PascalABC.NET 3.2, сборка 1377 от 19.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadArrReal(Введите семь различных двухзначных чисел+NewLine,7);
  a.Select((x,i)-gt;Format([{1}]:{0},x,i+1)).Println(, );
  var imax:=a.IndexMax;
  var imin:=a.IndexMin;
  Writeln(Максимальный элемент: ,Format([{0}]:{1},imax+1,a[imax]));
  Writeln(Минимальный элемент: ,Format([{0}]:{1},imin+1,a[imin]));
  Writeln(Максимальный элемент больше минимального в ,
    Round(a[imax]/a[imin]), раз(а))
end.

Пример
Введите семь различных двухзначных чисел
 23 64 24 28 21 11 19
[1]:23, [2]:64, [3]:24, [4]:28, [5]:21, [6]:11, [7]:19
Максимальный элемент: [2]:64
Минимальный элемент: [6]:11
Максимальный элемент больше минимального в 6 раз(а)