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? = Yêu cầu: Dùng file

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? = Yêu cầu: Dùng file”

1. Uses crt;

   var f,g:text;

         n,i:longInt;

         a:array[1..1000000] of integer;

         Kt:boolean;

   begin

   assign(f,’nhap.inp’);reset(f);

   readln(f,n);

   for i:=1 to n do read(f,a[i]);

   close(f);

   assign(g,’xuat.out’);rewrite(g);

   kt:=true;

   for i:=1 to n-1 do if a[i]>a[i+1] then

      Begin

         kt:=false;

         Write(g,’la day tang’);

          Break;

      End;

   if kt:=true then write(g,’ko phai day tang’);

   close(g);

   end.

   Bình luận

2. const fi=’daytangdan.inp’;
         fo=’daytangdan.out’;
   type mang = array [1..100000] 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;
   begin
           assign(input,fi);
           reset(input);
           readln(n);
           for i:=1 to n do read(a[i]);
           close(input);
           assign(output,fo);
           rewrite(output);
           if check(a) then write(‘YES’) else write(‘NO’);
           close(output);
   end.

   Bình luận