Viết 1 chương trình thực hiện các yêu cầu sau 1) Nhập vào dãy n số tự nhiên bất kì nhỏ hơn 50 từ bàn phím 2) tính tổng và trung bình cộng các phần tử của dãy số 3) in ra màn hình số lớn nhất trong dãy số ở trên 4) in ra màn hình số bé nhất trong dãy số ở trên
uses crt;
var a: array[1..100] of integer;
i,n,j,t: integer;
begin
clrscr;
write (‘nhap n: ‘); readln (n);
for i:=1 to n do
begin
write (‘nhap pt thu ‘,i,’: ‘); readln (a[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
write (‘day tang dan: ‘);
for i:=1 to n do write (a[i],’ ‘);
readln;
end.