Giải thích đề:

Tức là bạn đếm trong dãy có bao nhiêu phần a[i] mà a[i-1]>a[i]<a[i+1];

Do a[1] và a[n] không có số liền trướn nên không thể là số cực tiểu địa phương.

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.

Chưa hiểu cứ hỏi nhé

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.