HELP Sử dụng biến mảng. Viết chương trình nhập vào dãy n số nguyên. In ra mảng

0 bình luận về “HELP Sử dụng biến mảng. Viết chương trình nhập vào dãy n số nguyên. In ra mảng”

1. Uses Crt;
   Var a:array[1..5000] of integer;
   i,n:integer;
   Begin
   Clrscr;
   Write(‘Nhap so ptu N = ‘); Readln(n);
   For i:= 1 to n do begin
   Write(‘ Nhap a[‘,i,’] = ‘); Readln(a[i]);
   End;
   Writeln(‘Day so duoc ghi la: ‘);
   For i:= 1 to n do
   Begin
   Write(a[i]:3);
   End;
   Readln
   End.
   *NL: Bạn thích xem “Love is war” à! Chắc là fan cứng của Ichika luôn!!! :333

   Bình luận

2. Program   chuong_trinh;

   Uses     Crt;

   var         i,n: integer;

           A:array[1…1000] of integer;

   Begin

   clrscr;

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

   for i:=1 to n do 

   begin

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

   end;

   writeln (‘ Mang da nhập: ‘);

   for i:=1 to n do

   write(A[i]);

   readln;

   End.

   Bình luận