sử dụng biến mảng. Viết chương trình nhập vào dãy n số nguyên. in ra mảng (đơn giản) * GIÚP MÌNH VS*

0 bình luận về “sử dụng biến mảng. Viết chương trình nhập vào dãy n số nguyên. in ra mảng (đơn giản) * GIÚP MÌNH VS*”

1. program printmang;

   uses crt;

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

         i,n:integer;

   begin

         clrscr;

         write(‘Nhap do dai mang: ‘);

         readln(n);

         for i:=1 to n do 

         begin

                  write(‘Phan tu thu ‘,i,’ cua mang la: ‘);

                  readln(lst[i]);

         end;

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

         readln;

   end.

   Bình luận

2. uses crt;

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

   i,n: integer;

   begin

   clrscr;

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

   for i:=1 to n do

   begin

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

   end;

   write (‘mang vua nhap: ‘); 

   for i:=1 to n do write (a[i]:2);

   readln;

   end.

   Bình luận