Viết chương trình nhập vào 10 số nguyên. Xuất ra màn hình 10 số đó. Dùng mảng một chiều. Giúp em với mnnn oiiiii

0 bình luận về “Viết chương trình nhập vào 10 số nguyên. Xuất ra màn hình 10 số đó. Dùng mảng một chiều. Giúp em với mnnn oiiiii”

1. Program ct;                                                                                                          

   USES CRT;                                                                                                  

   Var n,i: Integer;                                                                                                  

   A:array[1..10] of integer;                                                        

   Begin                                                                                                            

    Clrscr;                                                                                                          

     Write(‘ nhap n:’); Readln(n);                                                                

      For i:=1 to n do                                                                                              

       begin                                                                                                              

          Write(‘A[‘,i,’]=’); Readln(A[i]);                                                                

       end;                                                                                                          

   For i:=1 to n do                                                                                            

   Write(A[i]);              

    Readln;                                                                                                    

   End.

   Bình luận

2. Program ct;                                                                                                           USES CRT;                                                                                                    Var n,i: Integer;                                                                                                    A:array[1..10] of integer;                                                         Begin                                                                                                              Clrscr;                                                                                                           Write(‘ nhap n:’); Readln(n);                                                                 For i:=1 to n do                                                                                              begin                                                                                                               Write(‘A[‘,i,’]=’); Readln(A[i]);                                                                end;                                                                                                           For i:=1 to n do                                                                                             Write(A[i]);                                                                                                Readln;                                                                                                     End.

   Bình luận