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

Pascal

var a:array[1..15] of integer;
s,i:integer;
begin
for i:=1 to 15 do
read(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