Вмассиве из 10 целых чисел вычислить разность между наибольшим элементом и средним арифметическим всех элементов массива паскаль !

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
  var a:=ArrRandom(10,20,25); a.Println;
  Writeln(a.Max-a.Average)
end.

Тестовое решение
23 25 25 23 23 24 20 23 25 21
1.8

Var ma,sum,x:real;
    i:int64;
begin
for i:=1 to 10 do begin
   read(x);
   sum:=sum+x;
   if ma<x then ma:=x;
   end;
writeln(ma-(sum/10));
end.