viết chương trình nhập từ bàn phím dãy số nguyên N (N<=100). In ra màn hình dãy số vừa nhập

0 bình luận về “viết chương trình nhập từ bàn phím dãy số nguyên N (N<=100). In ra màn hình dãy số vừa nhập”

1. program day_so;

   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(‘Nhap so thu ‘,i,’: ‘); readln(A[i]);

               end;

         write(‘Day so la: ‘);

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

         readln;

   end.

   Trả lời

2. program bt;

   uses crt;

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

         i, N: byte;

   begin

     clrscr;

     write(‘Nhap do dai day so la:’); readln(N);

     for i := 1 to N do begin

       write(‘Nhap a[‘,i,’]=’);

       readln(a[i]);

     end;

     writeln(‘Day so vua nhap la:’);

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

     readln

   end.

   Xin câu trả lời hay nhất ạ :3

   Trả lời