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ấ

0 bình luận về “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ấ”

1. 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

   Bình luận