Массивы. Помогите пожалуйста с решением

[Anita_i]

Подскажите пожалуйста как решить эту задачу

Задана матрица размером NxM. Определить k – количество “особых” элементов матрицы, считая элемент “особым”, если в его строке слева от него находятся элементы, меньшие его, а справа – большие.

Спасибо

[ryton]

А если элемент первый или последний?

[D-mon]

var matr:array [0..N,0..M]of integer;
     Kol_K,i,j:integer;
     fl_L,fl_R:bool;
begin
Randomize; 
for i:=0 to N do
 begin
  for j:=0 to M do
   begin
    matr[i,j]:=Rand(100000);
   end;
 end;
for i:=1 to N do
 begin
  for j:=1 to M do
   begin
    fl_L:=false; fl_R:=false;
    for k:=j-1 downto M do
     if(matr[i,j]<matr[i,k])then fl_L:=true;
    for t:=j+1 to N do
     if(matr[i,j]>matr[i,t])then fl_R:=true;
    if((fl_L=false) and (fl_R=false))then Inc(Kol_K);
   end;
 end; 
 ShowMessage('Колличество особых елементов: '+IntToStr(Kol_K));
end;

[Stilet]

Ну код в студию.
Особый это если if and(a[i]>a[i-1])and(a[i]<a[i+1]) then Особый
Ну ирганицы массива проверять.

[Anita_i]

Спасибо за помощь

А если решать вот таким вот примерно образом, задача не хочет работать, почему?

begin
k := 0
for i:=1 to m
for j:=2 to n-1
begin
left := true;
right: = true;
for q:=1 to j-1
begin
if a[q] >= a[j] then left := false;
end;
for q := j+1 to n
begin
if a[q] <= a[j] then right := false;
end;
if left = true and right = true then k = k +1
end;

[D-mon]

begin
k := 0
for i:=1 to m
for j:=2 to n-1
begin
left := true;
right: = true;
for q:=1 to j-1 // ту не to а downto
begin
if a[q] >= a[j] then left := false;
end;
for q := j+1 to n
begin
if a[q] <= a[j] then right := false;
end;
if left = true and right = true then k = k +1
end;

[Anita_i]

Класс, спасибо

[Virtson]

if left = true and right = true then k = k +1

->

if left and right
then k := k +1; // !! присвоение