uses crt;
var a,b:array[1..1000] of integer;i,j,n,max,min:integer;ta,tam,tc:longint;tbc:real;
BEGIN
clrscr;
write('Nhap n: ');readln(n);
for i:=1 to n do begin
Write('Nhap phan tu thu ',i,' : ');readln(a[i]); end;
Write('Mang vua nhap la: ');
for i:=1 to n do
write(a[i],' ');writeln;
ta:=0;tc:=0;j:=0;max:=a[1];min:=a[1];
for i:=1 to n do
if a[i]<0 then ta:=ta+a[i];
writeln('Tong cac phan tu am trong mang la: ',ta);
for i:=1 to n do
if a[i] mod 2=0 then begin tc:=tc+a[i];j:=j+1 end;
writeln('Tong cac phan tu chan trong mang la: ',tc);
tbc:=tc/j;
writeln('Trung binh cong cac phan tu chan trong mang la: ',tbc:6:3);
for i:=2 to n do
if a[i]>max then max:=a[i];
for i:=2 to n do
if a[i]<min then min:=a[i];
writeln('Phan tu lon nhat trong mang la: ',max);
writeln('Phan tu nho nhat trong mang la: ',min);
for i:=1 to n do
begin
tam:=a[i];
for j:=i+1 to n do
if a[j]>tam then begin tam:=a[j];a[j]:=a[i] end;
b[i]:=tam
end;
write('Mang sau khi xap xep la: ');
for i:=1 to n do
write(b[i],' ');
readln
END.
