Nhập vào một dãy số nguyên : Dòng 1 : In ra các số vừa nhập Dòng 2 : đếm các số nguyên dương trong dãy . Dòng 3 : Sắp xếp dãy theo chiều tăng dần . D

var a,b:array[1..100] of longint;

i,j,tam,tam1,n,d:longint;

begin

readln(n);

for i:=1 to n do read(a[i]);readln;

for i:=1 to n do write(a[i],’ ‘);writeln;

d:=0;

for i:=1 to n do 

if a[i]>0 then inc(d);

writeln(d);

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;

for i:=1 to n do write(a[i],’ ‘);writeln;

for i:=1 to n do

b[i]:=abs(a[i]);

for i:=1 to n-1 do

for j:=i+1 to n do

if b[i]>b[j] then

begin

tam1:=b[i];

b[i]:=b[j];

b[j]:=tam1;

end;

for i:=1 to n do

write(a[i],’ ‘);

readln

end.

Trả lời