Nhập vào mảng các số nguyên sau đó đưa ra màn hình: a) cho biết mảng đó có phải mảng tăng hay mảng giảm không b) cho biết mảng đó có phải mảng đan dấu hay không biết mảng A là mảng đan dấu nếu tích của 2 phần tử liên tiếp là số âm

Program BTT;
Uses crt;
Type manga=array[1..1000] of longint;
Var A: manga;
    n,i: longint;

Function tang(A: manga; n: longint): boolean;
Var i,j: longint;
Begin
        For i:=1 to n-1 do
                For j:=i+1 to n do
                        If A[i]>A[j] then exit(false);
        Exit(true);
End;

Function giam(A: manga; n: longint): boolean;
Var i,j: longint;
Begin
        For i:=1 to n-1 do
                For j:=i+1 to n do
                        If A[i]>A[j] then exit(false);
        Exit(true);
End;

Function ktra(A: manga; n: longint): boolean;
Var i,j: longint;
Begin
        For i:=1 to n-1 do
                For j:=i+1 to n do
                        If A[i]*A[j]>=0 then exit(false);
        Exit(true);
End;
---

Phần chính thì bạn cứ nhập và dùng lệnh if với các chương trình con là được