Bài cô giáo em giao ạ Cho một dãy số gồm N số nguyên a1,a2,…,aN . Người ta định nghĩa một số ai là cực tiểu địa phương nếu thỏa mãn ai-1>a

0 bình luận về “Bài cô giáo em giao ạ Cho một dãy số gồm N số nguyên a1,a2,…,aN . Người ta định nghĩa một số ai là cực tiểu địa phương nếu thỏa mãn ai-1>a”

1. var f: text;

         a: array[1..10000000] of longint;

         n, i, d: longword;

   Begin

       Assign(f, ‘BAI3.INP’); reset(f);

       Readln(f, n);

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

       Close(f);

       d:=0;

       Assign(f, ‘BAI3.OUT’); rewrite(f);

       For i:=2 to n-1 do

            If (a[i]>a[i-1]) and (a[i]<a[i+1]) 

                Then inc(d);

       Write(f, d); close(f);

   End.

   Bình luận

2. Chương trình:

   uses crt;
   var f:text; i,n,d:longint;
   a:array[1..1000000]of longint;
   begin
   clrscr;
      assign(f,’BA1.INP’);reset(f);
         readln(f,n);
         for i:=1 to n do read(f,a[i]);
      close(f);
      assign(f,’BA1.OUT’);rewrite(f);
         for i:=2 to n-1 do  
            if (a[i-1]>a[i])and(a[i]<a[i+1]) then
               inc(d);
         writeln(f,d);
      close(f);
   end.

   Bình luận