Найти среднее арифметическое частей массива х(n), исключив из их максимальное и

program zz1;

const n = 14;  //задаем количество частей в массиве

var  i, max1, min, s, k:integer; // задаем переменные целого типа

x:array [1..n] of integer;

begin

for i:=1 to n do // записываем в массив числа случайным образом

x[i]:=random(201)-60;

for i:=1 to n do  //выводим массив на экран

write(x[i], );

writeln;    // перебегаем на новейшую строчку для вывода ответа

max1:=0;

for i:=1 to n do  // обретаем наибольший элемент

if x[i]gt;max1 then  max1:=x[i];

min:=1000000; //задаем начальное значение для малого элемента

for i:=1 to n do  // организуем цикл, в котором переберем все числа массива

if x[i] lt; min then min:=x[i]; //проверяем, если число из массива меньше малого, то записываем его в минимальное

for i:=1 to n do

if (x[i] lt;gt; max1) and (x[i] lt;gt; min) then begin s:=s + x[i]; k:=k + 1; end;

write( среднее арифметическое элементов массива, исключив из их максимальное и минимальное значение = , s/k:5:2);   // выводим ответ

end.