BÀI TẬP 1_MẢNG

          Viết chương trình nhập vào dãy số gồm N phần tử (N được nhập và từ bàn phím). Thực hiện các yêu cầu sau:

                    - In dãy số đã nhập ra màn hình

                    - In dãy số theo thứ tự ngược lại

CODE THAM KHẢO

program BT1;

uses crt;

//Khai báo biến mảng A và các biến đơn i,n.

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

    i,n: integer;

begin

    clrscr;

    //Nhập số lượng phần tử cho dãy số

    write('Nhap so phan tu N = '); readln(n);

    //Nhập giá trị cho từng phần tử của mảng A

    for i:=1 to n do

        begin

            write('Nhap phan tu thu ',i,': ');

            readln(A[i]); //Nhập giá trị cho từng phần tử thứ i của mảng A

        end;

    //In ra màn hình dãy số vừa Nhập

    write('Day so vua nhap la: ');

    for i:=1 to n do write(A[i],' '); //In từng phần tử cách nhau 1 khoảng cách

    writeln; // In ra 1 dòng trống

    //In ra màn hình dãy số ngược lại

    write('Day so nguoc lai la: ');

    for i:=n downto 1 do write(A[i],' ');

    readln;

end.