viết chương trình pascal sử dụng biến mảng để nhập vào 1 mảng gồm 45 phần tử, in ra màn hình 45 phần tử ngược lại từ 45-1

0 bình luận về “viết chương trình pascal sử dụng biến mảng để nhập vào 1 mảng gồm 45 phần tử, in ra màn hình 45 phần tử ngược lại từ 45-1”

1. program ct;

   uses crt;

   var i:integer;

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

   begin

     for i:=1 to 45 do

   begin

     write(‘nhap mang A[‘,i,’]:=’);readln(A[i]);

   end;

     writeln(‘day so nguoc la:’);

        for i:= 45 downto 1 do write(A[i],’  ‘);

   readln

   end.

   Bình luận

2. program oken;
   uses crt;
   var a: array [1..45] of integer;
       i:byte;
   begin
       clrscr;
       writeln(‘Nhap mang gom 45 phan tu’);
       for i:=1 to 45 do
           begin
               write(‘A[‘,i,’]: ‘);
               readln(a[i]);
           end;
       write(‘Xuat mang nguoc lai: ‘);
       for i:=45 downto 1 do 
           write(a[i],’ ‘);
       readln;
   end.

   Bình luận