Bài 1 : Nhập và in ra mảng số nguyên gồm N phần tử (N< hoặc bằng 100, N nhập từ bàn phím)

Bài 1 : Nhập và in ra mảng số nguyên gồm N phần tử (N< hoặc bằng 100, N nhập từ bàn phím)

0 bình luận về “Bài 1 : Nhập và in ra mảng số nguyên gồm N phần tử (N< hoặc bằng 100, N nhập từ bàn phím)”

  1. program nhap_in;

    uses crt;

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

          n,i:byte;

    begin

            clrscr;

            write(‘Nhap so luong phan tu 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

Viết một bình luận