Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phân tử của một dãy số nguyên A. Độ daf của dãy M cũng được từ bàn phím với (0

13/07/2021 Bởi Rose

0 bình luận về “Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phân tử của một dãy số nguyên A. Độ daf của dãy M cũng được từ bàn phím với (0<M<=100)?”

1. program nhap_mang;

   uses crt;

   var A:array[1..100] of integer;

        m,i:integer;

   begin

         clrscr;

         write(‘Nhap M: ‘);   readln(m);

         for i:=1 to m do

               begin

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

               end;

         write(‘Mang A la: ‘);

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

         readln;

   end.

   Bình luận

2. uses crt;

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

   m,i:integer;

   begin

   clrscr;

   write(‘nhap m: ‘);   readln(m);

   for i:=1 to m do

   begin

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

   end;

   write(‘day mang vua nhap: ‘);

   for i:=1 to m do write(a[i],’ ‘);

   readln;

   end.

   Bình luận