Viết chương trình nhập vào n số, in ra theo thứ tự ngược lại VD: Viết 1; 2; 3 -> In ra: 3; 2; 1

0 bình luận về “Viết chương trình nhập vào n số, in ra theo thứ tự ngược lại VD: Viết 1; 2; 3 -> In ra: 3; 2; 1”

1. Program TH;
   Uses crt;
   Var a,b: integer;
   c: array[1..100] of integer;
   Begin
   Clrscr;
   Write(‘Nhap so luong so: ‘); readln(a);
   For b:= 1 to a do
   Begin
   Write(‘Nhap so thu ‘, b,’: ‘); readln(c[b]);
   end;
   For b:=a downto 1 do write(c[b] , ‘,’);
   Readln;
   End.

   Bình luận

2. Uses crt;

   Var n, i: integer;

         X: ARRAY[1..100] OF integer;

   begin

   Write(‘Nhap so lg ptu, n = ‘); read(n);

   For i:=1 to n do 

   begin write(‘So thu X[‘,i,’] la: ‘); read(X[i])

   end;

   For i:=n downto 1 do write(X[i],’,’);

   readln;

   end.

   Bình luận