Viết chương trình nhập vào số nguyên n và dãy A, sắp xếp tăng dần các số nguyên dương trong A mà vẫn giữ nguyên vị trí các số còn lại

program sapxep;

uses crt;

var A:array[1..10000] of integer;

      n,i,j,tam:integer;

begin

clrscr;

write(‘Nhap so luong phan tu cua mang: ‘);     readln(n);

writeln(‘NHAP GIA TRI TUNG PHAN TU CUA MANG’);

for i:=1 to n do

 begin

  write(‘A[‘,i,’]= ‘);

  readln(A[i]);

 end;

for i:=1 to n do

 for j:=i+1 to n do

  if (A[i]>0) and (A[j]>0) and (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],’ ‘);

readln

the end