Viết chương trình nhập vào dãy số in ra màn hình dãy được nhập sắp xếp theo thứ tự tăng dần.

0 bình luận về “Viết chương trình nhập vào dãy số in ra màn hình dãy được nhập sắp xếp theo thứ tự tăng dần.”

1. uese crt;

   var a: array[1..100] of integer;

   n,i,max,h: integer;

   begin

   clrscr;

   writeln(‘nhap so phan tu day:’); readln(n);

   for i:=1 to n do begin

   writeln(‘nhap so thu’,i,’:’); readln(a[i]);

   end;

   for i:= 1 to n-1 do

   for h:= i+1 to n do

   if a[i]>a[h] then begin

   max:=a[i];

   a[i]:=a[h];

   a[h]:=max;

   end;

   writeln(‘Thu tu tang dan la:’);

   for i:= 1to n do

   write(a[i]:4);

   readln;

   end.

   Bình luận

2. program ct;

   uses crt;

   var i,n,tam,j:integer;

   A:array[1..100] of integer;

   begin

   clrscr;

     write(‘nhap n:=’);readln(n);

       for i:=1 to n do

   begin

     write(‘nhap mang 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;

     writeln(‘day so sap xep theo thu tu tang dan la’);

       for i:=1 to n do

           write(A[i],’  ‘);

   readln

   end.

   Bình luận