Lệ
Tổng số bài gửi : 16 Join date : 06/12/2022
| Tiêu đề: bai7.pascal Fri Dec 16, 2022 7:33 pm | |
| uses math; var n,i,p:longint; a:array [1..10000] of longint; begin assign(input,'bai7.inp'); reset(input); assign(output,'bai7.out'); rewrite(output); read(n); for i:=1 to n do read(a[i]); p:=0; for i:= 1 to n do begin if a[i]>a[i+1] then p:=1; break; end; if p=0 then write('YES') else write('NO'); close(input); close(output); end. | |
|