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.

uses crt;
var a:array[1..100] of integer;

n,i,j,s,sl,sc,sa,tam: integer;
begin
clrscr;
writeln('Nhap N: '); readln (n);
for i:= 1 to n do
begin writeln('nhap a[',i,'] = '); readln (a[i]) end;
s:=0;
for i:= 1 to n do s:=s+a[i];
write('Tong cac so cua day la ',s);
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('Day so sau khi sap xep la: ');
for i:=1 to n do write(A[i],'  ');
writeln('So phan tu cua day la: ',n);
for i:= 1 to n do
if A[i] mod 2 <> 0 then sl:=sl+1;
writeln('So so le cua day la: ', sl);
for i:= 1 to n do
if A[i] mod 2 = 0 then sc:=sc+1;
writeln('So so chan cua day la: ',sc);
for:=1 to n do
if A[i] < 0 then sa:=sa+1;
writeln('So so am trong day la: ', sa);
readln;
end.