Для массива а1, а2, а3 … а15 найти разность между средним арифметическим элементов массива и наименьшим из них.

Pascalvar a:array[1..15] of integer;s,i:integer;beginfor i:=1 to 15 doread(a[i]);s:=(a[1] + a[15])/2;if (a[2]-a[1]) >= 0 then writeln(s - a[1]) else writeln(s - a[15]);end. 

const n = 15;var a:array[1..n] of integer;i,min,s:integer;begin  min:=20;  for i:=1 to n do begin    a[i]:=random(41)-20;    if a[i]<min then min:=a[i];    write(a[i]:4);    s:=s+a[i];  end;  writeln;  writeln('Минимальное: ',min, ' Среднее арифметическое: ', s/n);  writeln('Разность: ',s/n-min);end.Тестовое решение:  16   4   9  -5  12   0  -1  -4   4   9   5 -20 -14   7  14Минимальное: -20 Среднее арифметическое: 2.4Разность: 22.4