Массивы Опции

[Nalis]

Нужно разобраться в одной программке-
Дан массив С(6,6). Определить количество «особых» элементов массива, считая элемент «особым», если в его строке слева от него находятся элементы меньше него, а справа - больше.
Начало есть,.но как посчитать без понятия

Program 1;
uses crt;

const
  size_row = 6;
  size_col = 6;

type
  trow = array[1 .. size_row] of integer;
  tmatrix = array[1 .. size_col] of trow;

procedure swap_cols(var mx: tmatrix;
          const i, j: integer);
  var T: trow;
  begin
    T := mx[i]; mx[i] := mx[j]; mx[j] := T
  end;

procedure print(var mx: tmatrix);
  var i, j: integer;
  begin
    for i := 1 to size_row do
      begin
        for j := 1 to size_col do
          write(mx[j][i]:4);
        writeln
      end;
  end;

var
  mx   : tmatrix;
  i, j : integer;
  n, z : integer;
  t    : text;
r: array [1..500] of Real;
s: Real;
ArrayOfInteger: Array [1..100, 1..100] of Integer;

begin
 clrscr;
 n := 0;
 assign (t, 'input.txt');
 reset (t);
  for i := 1 to size_col do
   for j := 1 to size_row do
  	read (t, mx[i][j]);
 close (t);



       writeln ;
   writeln('ishodn. matrica:');
   print(mx);  

[мисс_граффити]

а где ж ты весь семестр был?... злые люди к паскалю не подпускали?
лично я не считаю фразу "завтра сдавать" поводом делать все за тебя... тем более что основную часть уже дали.

З.Ы. Извините за грубость. Просто уже надоело одно и то же везде.

[Nalis]

а где ж ты весь семестр был?... злые люди к паскалю не подпускали?
лично я не считаю фразу "завтра сдавать" поводом делать все за тебя... тем более что основную часть уже дали.

З.Ы. Извините за грубость. Просто уже надоело одно и то же везде.

Злые люди подпускали к паскалю, но разобраться в нём так и не удалось)Благо что паскаль в этом семестре заканчивается и я думаю больше к вам не обращусь))Вот тем более основную часть вы мне дали, так что грех не докончить начатое, не правда ли?