Дана последовательность целых чисел a1, a2, ..., an (n <= 40 Получить новую последовательность, выбросив из исходной элементы со значением max(a1, a2, ..., an) Надо написать в паскале очень надоо
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
##
var n := ReadInteger;
var a := ReadArrInteger(n);
var m := a.Max;
var b := a.Where(t -> t <> m).ToArray;
b.Print