задача решается в паскале.  В одномерном массиве найти сумму всех элеметнов кроме мах и тип
найти:
1)сумма элемента массива.
2)мах в массиве.

a:array[1..10000] of integer;i, k, max, min, s:integer;beginreadln(n);for i:=1 to n doreadln(a[i]);max:=a[1];min:=a[1]{"тип" я буду принимать за минимальное число. если имелось ввиду что-то другое-уберете}for i:=1 to n doif max<a[i] then max:=a[i];if min>a[i] then min:=a[i];for i:=1 to n dos:=s+a[i];s:=s-max-min;writeln(s);readln;end.