Процедура, Создание процедуры для решения Опции

[Slipknot]

У меня есть код для решения задачи с матрицей, но по своему растыцтву я не могу сделать из этого процедуру (а надо)

...
max:= a[1,2];
 for i:= 1 to N-1 do
  begin
   for j:= i+1 to N do
    begin
     if a[i,j]> max
     then max:= a[i,j];
    end;
  end;
s:=0;
for j:= 1 to N-1 do
 begin
  for i:= j+1 to N do
   begin
    if a [i,j]> max
    then s:= s + a[i,j];
   end
 end;
...

Суть задачки в том, что надо отыскать максимум под главной диагональю, а потом просуммировать числа над главной диагональю которые больше него.

М

Пользуемся тегами !

[Гость]

А в чем, собсно, проблема? Выносишь код вверх, окаймляешь операторами

procedure MaxUnderMainDiag(...); {insert parameters}
var
  i,j:integer;
  ... {add some more vars if needed}
begin
.... {here the code goes}
end;

- что еще?
Может, вопрос в том, как передать параметры? Тогда скажи, как ты хочешь передавать массив: по адресу или по имени?