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òng 4 : Sắp xếp giá trị tuyệt đối theo chiều tăng dần .
Em cảm ơn trước ạ ! ω
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òng 4 : Sắp xếp giá trị tuyệt đối theo chiều tăng dần .
Em cảm ơn trước ạ ! ω
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.