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

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

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016begin  var a:=ArrRandom(10,20,25); a.Println;  Writeln(a.Max-a.Average)end.Тестовое решение23 25 25 23 23 24 20 23 25 211.8