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

Ответ учителя по предмету Информатика

// 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 раз(а)