program pr2;
uses CRT;
const
n = 10;
type
TMass = array[1..10] of integer;
var
a : TMass;
i, sum, max : integer;

begin
clrscr;
{ Инициализируем генератор }
randomize;

sum := 0;

writeln('Массив: ');
for i:=1 to n do
begin
     a[i]:=random(10);
     write(a[i]:4);
     { Считаем сумму элементов }
     { для среднего арифметического }
     sum := sum + a[i];
end;

max := a[1];

{ Ищем максимум }
for i:=2 to n do
begin
     if max < a[i] then max := a[i];
end;

write('Результат: ', max - (sum / n));

readln;
end.