Question

Viết chương trình thực hiện các yêu cầu sau : + nhập tối đa khoảng 30 phần tử số nguyên + kiểm tra xem dãy số nhập vào có thứ tự ko giảm hay ko

Answer 1

uses crt;

var a:array[1..100]of integer;

i,n,kt:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

kt:=0;

for i:=1 to n-1 do 

if a[i]>a[i+1] then kt:=1;

if kt=0 then write('YES')

else write('NO');

readln;

end.