Tiêu đề: bai7: vu hoai bang Fri Dec 16, 2022 7:30 pm
var a:array[-5..100005] of longint; n,i,p:longint; begin assign(input,'baitap7.inp');reset(input); assign(output,'baitap7.out');rewrite(output); readln(n); for i:=1 to n do read(a[i]); p:=0; for i:=1 to n-1 do if a[i]>a[i+1] then begin p:=1; break; end; if p=1 then write('NO') else write('YES'); close(input);close(output); end.