Question

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

Answer 1

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

begin
  var a:=ReadArrReal('Введите семь различных двухзначных чисел'+NewLine,7);
  a.Select((x,i)->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 раз(а)