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>ai<ai+1 (a1 và aN không được gọi là cực tiểu địa phương. Hãy tìm số lượng cực tiểu địa phương của dãy số trên. Input: cho trong file văn bản BAI2.INP gồm: - Dòng 1 chứa duy nhất một số nguyên dương N ( N≤10^7). - Dòng 2 chứa dãy số nguyên a1,a2,…,aN (|ai|≤ 10^9, ꓯi ϵ [1,N]). Output: Ghi ra file văn bản duy nhất một số là kết quả bài toán. Ví dụ: BAI3.INP BAI3.OUT 4 2 3 2 3 1

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.

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.