đảo ngược các số nguyên trong mảng ví dụ 45 43 22 -123 02 in ra 53 34 22 -321

0 bình luận về “đảo ngược các số nguyên trong mảng ví dụ 45 43 22 -123 02 in ra 53 34 22 -321”

1. uses crt;
   var i,n:longint;  a:array[1..10000]of longint;
   begin
   clrscr;
      write(‘Nhap so phan tu: ‘);readln(n);
      for i:=1 to n do
         begin
            write(‘a[‘,i,’]=’);readln(A[i]);
         end;
      for i:=1 to n do
         begin
            if a[i]<0 then write(‘-‘); a[i]:=abs(a[i]);
            repeat
               write(a[i] mod 10);
               a[i]:=a[i] div 10;
            until a[i]=0;
            write(‘ ‘);
         end;
   readln
   end.

   Bình luận