$\text{Var i , j , n, t : integer;}$

$\text{⇒ Khai báo các biến i, j, n, t kiểu số nguyên}$

$\text{A : array [1 .. 100] of integer;}$

$\text{⇒ Khai báo mảng A chứa 100 phần tử kiểu số nguyên}$

$\text{⇒ Chỉ số đầu phần tử 1 và chỉ số cuối phần tử 100}$

var i,n,k :integer; A:array[1..100] of integer; 
 Begin
        clrscr;
        write('Nhap so n: ');readln(n);
        For i:=1 to n do
                begin
                        write('A[',i,']= ');
                        readln(A[i]);
                end;
        if a[1]>a[2] then k:=1 else k:=0; kt:=true;
        For i:=1 to n-1 do
        if ((i mod 2=k)and(a[i]<=a[i+1]))or((i mod 2<>k)and(a[i]>=a[i+1])) then KT:=false;
        if KT=true then write('YES');
        if KT=false then write('NO');
        readln;
 End.

!CHÚC BẠN HỌC TỐT!

__BikMTCH4014__