Viết chương trình nhập và 1 mảng số nguyên gồm n phần tử (n<=100). In ra mảng vừa nhập

0 bình luận về “Viết chương trình nhập và 1 mảng số nguyên gồm n phần tử (n<=100). In ra mảng vừa nhập”

1. Program FNG;
   Uses crt;
   Var A: array[1..100] 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:=1 to n do Write(A[i],’ ‘);
           Readln
   End.

   Bình luận

2. Var a:array[1..100] of longint;

   n,i:longint;

   begin

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

   for i:=1 to n do

   begin

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

   end;

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

   readln

   end.

   Bình luận