Найти среднее арифметическое элементов отличных от минимального

Pascal ABC

Const n=15;

var i, k, mn, indm, sm: integer;

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

sar: real;

begin

randomize;

writeln ('исходный массив:') ;

mn:=n; sm:=0;

k:=1;

for i:=1 to n do

begin

a[i]:=random (-n, n) ;

sm:=sm+a[i];

write (a[i],' ') ;

if a[i]=mn then k:=k+1;

if a[i]
begin

mn:=a[i];

indm:=i;

k:=1;

end;

end;

writeln;

writeln ('минимальный элемент: ', mn,' индекс: ', indm) ;

sm:=sm-a[indm]*k;

writeln ('сумма элементов без минимального: ', sm) ;

sar:=sm / (n-k) ;

writeln ('среднее арифметическое: ', sar:7:3) ;

end.

исходный массив:

-1 6 - 12 - 14 14 - 14 10 - 9 - 2 - 6 9 - 1 - 13 13 - 2

минимальный элемент: - 14 индекс: 4

сумма элементов без минимального: 6

среднее арифметическое: 0.462