Локальный минимум Опции

[ф]

Элемент Матрицы называется ЛОКАЛЬНЫМ МИНИМУМОМ, если он меньше всех соседей(по строке и столбцу). Напистаь программу , обеспечивающую ввод с клавиатуры целочисленной матрицы размером M на N, и обнаружение и подсчет кол-ва всех локальных минимумов....

[ф]

ребята помогите

Элемент матрицы называется локальным минимумом, если он строго меньше всех имеющихся у него соседей.

вот моя прога но она не работает

=((

что делать подскажите

Код

program oo;
uses crt;
const
n = 4;
a: array[1 .. n, 1 .. n] of integer =
((1, 2, 3, 4),(5, 4, 2, 6),(7, 3, 2, 7),(8, 1, 4, 2));
function is_local_min(i, j: integer): boolean;
 var
 b: boolean;
 ii, jj: integer;
   begin
 clrscr;
b := true;
 begin
for ii := pred(i) to succ(i) do
for jj := pred(j) to succ(j) do
if (ii in [1 .. n]) and (jj in [1 .. n]) then
 if (ii = i) and (jj = j) then continue
else b := b and (a[ii, jj] > a[i, j]);
is_local_min := b;
   end;
writeln(a[i,j]);
writeln(is_local_min(i,j));
 end.

Тегами пользуемся ...

Сообщение отредактировано: volvo - 22.06.2005 15:49