uses crt;                                                                                                                                                                  var A:array[1..100] of longint;
n,i,s,t,j,tam:longint; ta:real;
begin
clrscr;
write('Nhap n:'); readln(n);
s:=0;
t:=0;
ta:=0;
for i:=1 to n do
begin
write('A[',i,']=');
readln(A[i]);
s:=s+A[i];
if A[i] mod 2<>0 then
begin
ta:=ta+A[i];
t:=t+1;
end;
end;
writeln('a) Tong :',s);
write('b) Trung binh cua cac so le trong day la:',ta/t:0:2);
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;

writeln;
write('c) Sap xep theo thu tu tang dan:');
for i:=1 to n do
write(A[i],',');
readln
end.

uses crt;
var i,n,s,d,j,tam,c:integer;
a:array[1..100] of integer;
begin
clrscr;
write('nhap so ptu:');readln(n);
s:=0;
for i:=1 to n do
begin
 write('A[',i,']=');
 readln(a[i]);
 s:=s+a[i];
 if a[i] mod 2<>0 then begin d:=d+a[i];c:=c+1;end;
end;
for i:=1 to n 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;
writeln('tong cac so trong day la:',s);
writeln('trung binh cua cua cac so le trong day la:',d/c);
write('sap xep mang theo thu tu tang dan:');
for i:=1 to n do write(a[i]:3);
readln;
end.

(mong dc 5*+hay nhất)