Подпрограммы

[peter065]

Здравствуйте. Подскажите пожалуйста, как составить прогу:Определить, след какой из матриц А(3´3) или В(4´4) является наименьшим. След матрицы – сумма элементов, расположенных на главной диагонали.При решении задачи использовать подпрограмму-процедуру. Обмен данными между главной программой и подпрограммой – через списки формальных и фактических параметров.

[ROMA2PVT]

считаем сумму элементов первой матрицы:

sum1:=0;
  for i:=1 to n do
  begin
  sum1:=sum1+mas1[i,i];
  end;

второй:

sum2:=0;
  for i:=1 to n do
  begin
  sum2:=sum2+mas2[i,i];
  end;

И сравниваем значения:

if sum1<sum2 then
  begin
  writeln('След меньше у массива А');
  end;
   if sum2<sum1 then
  begin
  writeln('След меньше у массива В');
  end;
   if sum1=sum2 then
  begin
  writeln('Равны');
  end;

[Stilet]

http://www.programmersforum.ru/showthread.php?t=39517
Там пример суммы главной диагонали.

[Grag]

Вот как-то так...

Const
  m=10;
Type
  matr:array[1..m,1..m] of byte;
Var
  A,B:matr;
  Sled1,Sled2:integer;
Procedure Sled(var sled:integer; matrix:matr; n:byte);
Var
  i:byte;
Begin
  sled:=0;
  for i:=1 to n do
    sled:=sled+matrix[i,i]
End;

Begin
  Sled(Sled1,A,3);
  Sled(Sled2,B,4);
  if Sled1=Sled2
    then //равны
    else
      if Sled1>Sled2
        then //след матрицы A больше
        else //след матрицы B больше
End.