program dghf;
uses crt;
var n,i,j: integer;
M:array[1..100] of integer;
tong, sle, sch, sam, tam: real;
begin
clrscr;
writeln('Nhap do dai mang, N = '); read(n);
writeln('Nhap cac phan tu cua day: ');
for i:= 1 to n do
begin writeln('M[',i,'] = '); read(M[i]) end;
{cau a};
tong:=0;
for i:= 1 to n do tong:=tong+M[i];
write('Tong cac so cua day la ',tong);
{cau b};
for i:=1 to n-1 do
for j:=i+1 to n do
if M[i] > M[j] then
begin
tam:=M[i]; M[i] := M[j]; M[j]:=tam end;
writeln('Day so sau khi sap xep la: ');
for i:=1 to n do write(M[i]);
{cau c};
writeln('So phan tu cua day la: ',n);
{cau d};
for i:= 1 to n do
if A[i] mod 2 <> 0 then sle:=sle+1;
writeln('So so le cua day la: ', sle);
{cau e};
for i:= 1 to n do
if A[i] mod 2 = 0 then sch:=sch+1;
writeln('So so chan cua day la: ',sch);
{cau f};
for:=1 to n do
if A[i] < 0 then sam:=sam+1;
writeln('So so am trong day la: ', sam);
readln
end.
