в одномерном массиве найдите максимальное значение и индексы всех элементов равных ему(ПАСКАЛЬ)

Вопрос школьника по предмету Информатика

в одномерном массиве найдите максимальное значение и индексы всех элементов равных ему(ПАСКАЛЬ)

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

// PascalABC.NET 3.2, сборка 1425 от 22.04.2017

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

begin

  var a:=ArrRandom(ReadInteger(‘n=’),-10,10); a.Println;

  var amax:=a.Max;

  Writeln(‘Максимальный элемент- ‘,amax);

  Write(‘Номера элементов, равных ‘,amax,’: ‘);

  a.Select((x,i)->(x,i)).Where(xi->xi[0]=amax).Select(xi->xi[1]+1).Println

end.

Пример

n= 50

1 3 -3 0 -9 0 -7 1 1 2 2 -5 2 -7 3 5 -6 10 7 3 1 -3 0 5 10 4 1 -6 -6 -4 -3 10 2 -3 4 -10 -1 9 -4 -9 8 -10 -3 6 4 -8 -9 -7 7 -6

Максимальный элемент- 10

Номера элементов, равных 10: 18 25 32