Viết chương trình cho phép nhập n số và in ra theo thứ tự ngược lại

0 bình luận về “Viết chương trình cho phép nhập n số và in ra theo thứ tự ngược lại”

1. program oken;

   uses crt;

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

         i,n:integer;

   begin

   clrscr;

   write(‘nhap so phan tu cua mag: ‘); readln(n);

   for i:=1 to n do

     begin

       write(‘a[‘,i’]: ‘); readln(a[i]);

     end;

   writeln(‘mang theo thu tu nguoc lai’);

   for i:=n downto 1 do

      write(a[i],’ ‘);

   readln;

   end.

   Bình luận

2. Program BTH;
   uses crt;
   var a:array[1..100000] of longint;
   n,i:longint;
   Begin
           clrscr;
           write(‘Nhap n: ‘);readln(n);
           For i:=1 to n do
           Begin
                   write(‘a[‘,i,’]: ‘);readln(a[i]);
           end;
           For i:=n downto 1 do write(a[i],’ ‘);
           readln;
   end.

   Bình luận