Как написать задание через процедуры/функции

[sanyok1992]

Заданы три матрицы А(3,3), В(2,2), С(3,3). Найти минимальное из трех чисел х, у, , где х - след матрицы А, у- след матрицы В, z -след матрицы С. Следом матрицы называется сумма элементов главной диагонали. Вычисление следа оформить в виде процедуры.

[Vanta11a]

Ну и в чем проблема? Код писать за вас вряд ли кто-то будет, особенно учитывая то, что наработок нет ни капли.

[Mad_Cat]

type TMatrix = array[1..5,1..5] of integer;
procedure Sled(m:TMatrix;r:integer;var s:integer);
var i:integer;
begin
s:=0;
for i:=1 to r do
s:=s+m[i,i];
end;
function Min(a,b:integer):integer;
begin
if a<b then min:=a
else min:=b;
end;
{||тут описание переменных ||}
begin
{|||тут ввод матриц......|||}
sled(a,3,x);
sled(b,2,y);
sled(c,3,z);
Writeln(min(x,min(y,z)));
end.