Viết thuật toán tìm số lớn nhất, nhỏ nhất và độ lệch trung bình

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.