Viết chương trình nhập vào dãy số 30;10,3125;50 In ra màn hình dãy số 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ố 30;10,3125;50 In ra màn hình dãy số theo thứ tự tăng dần”

1. program ct;

   uses crt;

   var tam,i,j,n: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;

   write(‘day so sau khi sap xep la :’);

   for i:=1 to n do

   write(a[i]:5); writeln;

   readln

   end.

   Bình luận

2. uses crt;
   var A:array[1..1000] of integer;
       n,i,j,tam:integer;
   begin
      clrscr;
      write(‘Nhap n: ‘); readln(n);
      for i:=1 to n do
      begin
         write(‘Nhap phan tu thu ‘,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;
      write(‘Day so theo thu tu tang dan: ‘);
      for i:=1 to n do write(A[i]:4);
      readln
   end.

   Bình luận