Cho n và dãy số nguyên a1, a2, …, an. Kiểm tra dãy số có phải là dãy tăng dần không? = – Dùng file: KTTD – Dùng chương trình con

0 bình luận về “Cho n và dãy số nguyên a1, a2, …, an. Kiểm tra dãy số có phải là dãy tăng dần không? = – Dùng file: KTTD – Dùng chương trình con”

1. const fi=’kttd.inp’;
         fo=’kttd.out’;
   type mang = array [1..10000] of longint;
   var a:mang;
       i,j,n:longint;
   function check(a: mang):boolean;
   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;
   procedure nhap;
   begin
           assign(input,fi);
           reset(input);
           readln(n);
           for i:=1 to n do read(a[i]);
           close(input);
   end;
   procedure xuat;
   begin
           assign(output,fo);
           rewrite(output);
           if check(a) then write(‘YES’) else write(‘NO’);
           close(output);
   end;
   begin
           nhap;
           xuat;
   end.

   Trả lời