Cho mảng A gồm n phần tử +Nhập và in mảng ra màn hình

0 bình luận về “Cho mảng A gồm n phần tử +Nhập và in mảng ra màn hình”

1. Program FNG;
   Uses crt;
   Var A: array[1..1000] 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. uses crt;

   var n,i:integer;

   begin

     clrscr;

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

     for i:=1 to n do 

      begin

        writeln(‘nhap pt thu ‘,i,’:’);readln(a[i]);

      end;

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

    readln;

   end.

   Bình luận