Программа которая вычисляет сумму всех положительных элементов массива целых без учета...

Question

Программа которая вычисляет сумму всех положительных элементов массива целых без учета максимального значения. Массив генерируется случайным образом.(Паскаль)

Answer 1

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

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  var max:=a.Max;
  Writeln('Сумма положительных без максимума равна ',
      a.Where(x->(x>0) and (x<>max)).Sum)
end.

Пример
n= 16
-47 -28 38 49 -42 2 49 -29 39 -36 -4 -11 45 -12 -44 -16
Сумма положительных без максимума равна 124