У меня есть код для решения задачи с матрицей, но по своему растыцтву я не могу сделать из этого процедуру (а надо)
...
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;
array[1 .. 100, 1 .. 100] of integer, а потом используют 10*10 из этого, то стека вообще не хватит... Кстати, Slipknot, теперь ты понял, почему klem4 задал тебе такой вопрос, а не просил цитировать тебя же?). Так что (Const Ar: ArrType) как раз подойдет...