uses crt; var n,i,kt:longint; a:array[1..1000000]of longint; begin clrscr; Write('n=');readln(n); For i:=1 to n do begin Write('a[',i,']=');readln(a[i]); if(i>1)and(a[i]<=a[i-1])then kt:=1; end; if(kt=1)then writeln('Day khong phai la day tang') else writeln('Day la day tang'); readln end.
uses crt; var a:array[1..10000] of longint; n,i:longint; check:boolean; begin clrscr; write('Nhap so luong phan tu: '); readln(n); for i:=1 to n do begin write('Nhap phan tu thu ',i,': '); readln(a[i]); if a[i]>=a[i+1] then check:=true else check:=false; end; if check=true then write('TRUE, mang tang dan') else write('FALSE, mang khong tang dan'); readln; end.
