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

0 bình luận về “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”

1. 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

   Bình luận

2. 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

   end.

   Bình luận