Задача про матрицу Опции

[mashka-promakashka]

Вот как звучит задача:

Ввести числовую прямоугольную матрицу размером M×N (M и N заданы). Определить элементы, которые, являясь максимальными в столбцах, больше всех своих соседей слева в строке и меньше всех своих соседей справа в строке, указав значения найденных элементов и их индексы, или же сообщить, что таких элементов нет. Крайние столбцы не рассматривать.

Начала делать, но что то не работает толком...помогите пожалуйста

Program Matrix;
const stroka='';
stolb=''; {Ввод констант}
var a:array [1..100,1..100] of integer; 
im,jm,i,j,max,n,m,max1:integer; 

procedure maxinstolb;{Процедура нахождения максимального элемента в каждом столбце}
     begin
     for j:=2 to (m-1) do begin
     max:=a[1,j];
     im:=1; jm:=j;
     for i:=1 to n do
         if a[i,j]>max then begin
         max:=a[i,j];
         im:=i;
         jm:=j;
         end;
         end;
         end;

procedure maxelement; ;{Процедура проверки условия: максимальный элемент больше всех соседей слева и меньше всех соседей справа }
     begin
        i:=im;
        for j:=1 to (jm-1) do begin
        if a[i,j]<max then max1:=max;
        end;
        for j:=(jm+1) to m do begin
        if a[i,j]>max1 then writeln(max,' [',im,';',jm,']')
        else writeln('Ne suschestvuet');
        end;
        end;

     begin
     writeln(stroka,'Vvedite kol-vo strok matrici');
     readln(n); 
     writeln(stolb,'Vvedite kol-vo stolbcov matrici'); 
     readln(m); 
     writeln;
     writeln('Vvedite ',m*n,' elementa massiva:');
     for i:=1 to n do
     for j:=1 to m do
     read(a[i,j]);

     writeln('Ishodnaya matrica'); 
     for i:=1 to n do begin
     for j:=1 to m do
     write(a[i,j],' ');
     writeln;
     end;

     writeln('Max element boshe vseh sosedey sleva, no menshe vseh sosedey sprava');
     maxinstolb;
     maxelement; 
end.

[volvo]

В языке программирование Паскаль есть определение "матрицы"?

Матрица - это двумерный массив. Так? Какой из двух индексов начинает изменяться первым при продвижении по матрице построчно? Первый или второй?

Или вам не нравится ввод матрицы "построчно"? По-моему, такой ввод естественнее

Я уже объяснил выше, что хотя я ввожу матрицу построчно, в память данные почему-то заносятся по столбцам. Я этого не просил, кстати.

А не все-равно ли, как размещать индексы, если все работает верно?

Ну, это смотря какую цель ты преследуешь... Если написать на одни раз, а потом вообще забыть про программирование, как страшный сон - то пиши хоть с Label-ами и Goto, какая разница? Ну, помучаешься в 3 раза больше при отладке, отладишь однажды, больше к этому возвращаться не будешь...

А вот если тебе хочется научиться программировать - то тут уж будь добр не мешать индексы. Во-первых, в матрице обработка строки производится быстрее, чем обработка столбца (вот именно потому, что матрица хранится построчно это и происходит), а следовательно, на больших матрицах у тебя будет провал в быстродействии (а привыкнув работать "шиворот-навыворот" с маленькими матрицами ты БУДЕШЬ так же работать и с большими), которого можно избежать просто работая с индексами НОРМАЛЬНО. Во-вторых, человек, знакомый с любым языком-наследником Алгола, глядя на запись A[1, 2] понимает, что это должна быть первая строка, второй столбец, а тут оказывается у тебя первый столбец, вторая строка - то есть, ему надо лазить по твоей программе, и пытаться понять, что к чему и где, чтобы разобраться в алгоритме работы. Смысл в этом есть? Что дает тебе такой "переворот"? Что, программа заработает быстрее? Нет, она будет работать медленнее. Тогда зачем?

Но это все ни к чему не приведет... Ты все равно будешь спорить, делать по-своему, будешь обжигаться, тебя будут наказывать, но ты будешь продолжать, потому что думаешь, что самый умный и находчивый, "вон как выделился из толпы, все работают построчно, а я - по столбцам". Ну что ж, кто-то выделяется, бреясь налысо, кто-то - носит "гребень" на голове, ты нашел свой способ выделиться... Только вот не надо учить ему остальных. Ты хочешь - ты выделяйся. Всех других оставь в покое. Пускай они работают так, как принято, а не наоборот.