uses crt;
var a:array[1..10000]of longint;sa,sc,tam,i,j,dem,n,min:longint;
begin
 clrscr;
  readln(n);
  sa:=0;
  sc:=0;
  dem:=0;
  min:=high(longint);
  for i:=1 to n do
        begin
         readln(a[i]);
         if(a[i]<0)then sa:=sa+a[i];
         if(a[i] mod 2=0)then
                begin
                 sc:=sc+a[i];
                 inc(dem);
                end;
         if(min>a[i])then min:=a[i];
        end;
  writeln('tong cac so am trong day la:',sa);
  writeln('tong cac so chan trong day la:',sc);
  writeln('trinh binh cong cac so chan trong day la:',sc/dem:4:2);
  writeln('gia tri nho nhat trong day la:',min);
  for i:=1 to n-1 do
   for j:=i+1 to n do
    if(a[i]<a[j])then
        begin
         tam:=a[i];
         a[i]:=a[j];
         a[j]:=tam;
        end;
  write('day sau khi duoc sap xep giam dan la:');
  for i:=1 to n do write(a[i],' ');
 readln
end.

uses crt;

var a: array[1..100] of integer'

i,n,s,ss,min,j,t,d: integer;

begin

clrscr;

write ('nhap so luong phan tu: ');  readln (n);

for i:=1 to n do 

begin

write ('nhap phan tu thu ',i,': ');  readln (a[i]);

if a[i]<0 then s:=s+a[i]

else begin ss:=ss+a[i]; d:=d+1; end;

min:=a[1];

for i:=2 to n do

if a[i]<min then min:=a[i];

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;

writeln ('Tong cac phan tu am: ',s);

writeln ('Tong cac phan tu duong: ',ss);

writeln ('Trung binh cac phan tu duong: ',ss/d:1:2);

writeln ('Gia tri nho nhat la: ',min);

writeln ('Mang sap xep theo thu tu giam dan: ');

for i:=1 to n do write (a[i]:4);

readln;

end.

$#Trumtinhoc$