Question

Дана последовательность целых чисел a1, a2, ..., an (n <= 40).
Получить новую последовательность, выбросив из исходной
элементы со значением max(a1, a2, ..., an)
Надо написать в паскале очень надоо

Answer 1

##

var n := ReadInteger;

var a := ReadArrInteger(n);

var m := a.Max;

var b := a.Where(t -> t <> m).ToArray;

b.Print