PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a := ReadArrInteger(ReadInteger('n='));

 var max := a.Max;

 var i := a.IndexesOf(t -> t = max).ToArray;

 Print('Максимум, равный', max, 'у элемента(-ов) номер');

 i.Select(t -> t + 1).Println(', ')

end.

Пример

n= 15

-13 16 6 -12 -14 4 -12 -12 12 6 -10 2 16 -7 8

Максимум, равный 16 у элемента(-ов) номер 2, 13