viết chương trình nhập vào dãy số nguyên gồm n phần tử in ra dãy số đã nhập ra màn hình

0 bình luận về “viết chương trình nhập vào dãy số nguyên gồm n phần tử in ra dãy số đã nhập ra màn hình”

1. 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 phan tu thu ‘,i,’: ‘);  readln (a[i]);

   end;

   write (‘day so da nhap la: ‘); 

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

   readln;

   end.

   `text\(xin hay nhất !!!)`

   Bình luận

2. program phuongt;

   uses crt;

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

           n, i: integer;

   begin

               clrscr;

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

               for i:=1 to n do

               begin

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

               end;

               write(‘Day so da nhap la: ‘);

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

               readln

   end.

   Bình luận