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

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

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

М

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

[volvo]

по адресу или по имени?

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

array[1 .. 100, 1 .. 100] of integer

, а потом используют 10*10 из этого, то стека вообще не хватит... Кстати, Slipknot, теперь ты понял, почему klem4 задал тебе такой вопрос, а не просил цитировать тебя же?). Так что (Const Ar: ArrType) как раз подойдет...