Viết chương trình sử dụng biến mảng để nhập một số dãy n số từ bàn phím(n nhập từ bàn phím)_

0 bình luận về “Viết chương trình sử dụng biến mảng để nhập một số dãy n số từ bàn phím(n nhập từ bàn phím)_”

1. program nhap_mang;

   uses crt;

   var A:array[1..1000] 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(‘Mang da nhap la: ‘);

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

          readln;

   end.

   Bình luận

2. Program day_so;

   uses crt;

   var n,i:integer;

   a:array[1..1000] of integer;

   begin

   clrscr;

   write(‘nhap so day n:’);readln(n);

   for i:=1 to n do

   begin

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

   end;

   writeln(‘day so n da nhap:’);

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

   readln;

   end.

   *Chúc bạn học tốt!*

   _Fiona_

   Bình luận