Viết chương trình nhập một dãy có tối đa 1000 số nguyên. Sắp xếp và in ra dãy số theo thứu tự tăng dần.

0 bình luận về “Viết chương trình nhập một dãy có tối đa 1000 số nguyên. Sắp xếp và in ra dãy số theo thứu tự tăng dần.”

1. Program BTH;
   uses crt;
   var a: array [1..1000] of longint;
   i,j,n,the:longint;
   Begin
           clrscr;
           write(‘Nhap n: ‘); readln(n);
           for i:=1 to n do
           begin
                   write(‘a[‘,i,’]: ‘); readln(a[i]);
           end;
           for i:=1 to n-1 do
                   for j:=i+1 to n do
                           if a[i]>a[j] then
                           begin
                                   the:=a[i];
                                   a[i]:=a[j];
                                   a[j]:=the;
                           end;
           writeln(‘Sau khi sap xep giam dan: ‘);
           for i:=1 to n do write(a[i],’ ‘);
           readln;
   end.

   Bình luận

2. program oken;

   uses crt;
   var a: array [1..1000] of integer;
       i,n,j,tam:integer;
   begin
           clrscr;
           write(‘nhap so phan tu cua mang: ‘); readln(n);
           for i:=1 to n do
                   begin
                        write(‘a[‘,i,’]: ‘); readln(a[i]);
                   end;
           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],’ ‘);
           readln;
   end.

   Bình luận