viết thuật toán nhập N số nguyên từ bàn phím và in ra màn hình số nhỏ nhất và số lơn nhất cùng độ lệch của giá trị đó so với giá trung bình của N số đ

prorgam BT_mang;

uses crt;

var A:array [1..500] of integer;

      N,i,max,min: integer;

      TB,lech1,lech2: real;

Begin

         clrscr;

         write(‘Nhap so phan tu: ‘); readln(N);

         max:=1; min:=1;

         for i:=1 to N do

         begin

                  write(‘A[‘,i,’]=’); readln(A[i]);

                  if max<A[i] then max:=A[i];

                  if min>A[i] then min:=A[i];

                  TB:=TB+A[i];

         end;

         TB:=TB/N;

         if max>TB then lech1:=max-TB

         else lech1:=TB-max;

         if min>TB then lech2:=min-TB

         else lech2:=TB-min;

         writeln(‘So lon nhat: ‘,max,’, lech ‘,lech1:2:1,’ so voi trung binh: ‘,TB:2:1);

         write(‘So nho nhat: ‘,min,’, lech ‘,lech2:2:1,’ so voi trung binh: ‘,TB:2:1);

         readln

End.