var a: array[1..250] of integer;
dl: array[1..250] of real;
tb: real;
max, min: integer;
i, n: byte;
Begin
Write('n = '); readln(n); tb:=0;
For i:=1 to n do
Begin
Write('a[', i, '] = '); readln(a[i]);
Tb:=tb + a[i];
End;
Tb:=tb/n; min:=a[1]; max:=a[1];
For i:=1 to n do
Begin
Dl[i]:=abs(a[i]-tb);
If a[i]>max then max:=a[i];
If a[i]<min then min:=a[i];
End;
Writeln('max: ', max, '; min: ', min);
Writeln('do lech trung binh:');
For i:=1 to n do write(dl[i], ' ');
Readln
End.
