Nhập vào một dãy số n số xuất dãy vừa nhập ra màn hình

0 bình luận về “Nhập vào một dãy số n số xuất dãy vừa nhập ra màn hình”

1. Program nhap_xuat;

   uses crt;

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

        n,i:byte;

   begin

          clrscr;

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

          for i:=1 to n do

                 begin

                        write(‘Nhap so thu ‘,i,’: ‘);  readln(A[i]);

                 end;

          write(‘Day vua nhap la: ‘);

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

          readln;

   end.

   Bình luận

2. uses crt;

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

   i,n: integer;

   begin

   clrscr;

   write (‘nhap so phan tu: ‘);  readln (n);

   for i:=1 to n do

   begin

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

   end;

   write (‘day so vua nhap: ‘);

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

   readln;

   end.

   Bình luận