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

[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;
...

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

М

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