Матрицы произвольной размерности, Гибкая подпрограмма для обработки матриц Опции

[Reza]

Блин вообще воткнуть не могу как делать. Помогите плZZ с прогой,а то преподы съедят. Надо сделать гибкую подпрограмму для обработки матриц произвольного порядка с фиксированным базовым типом... Даны 2 квадратные матрицы разных порядков. Для каждой из матриц, если суммы элементов строк матрицы различны то транспонировать матрицу.

[Guest]

не поможете с проблемкой? задание было таковым: составить матрицу размерностью 7х8, вывести ее. Сформировать одномерный массив из сумм положительных элементов каждой строки матрицы. Вывести массив на экран.
Не могу найти где баг.

Program  matrica;
Uses Crt;
Var   C : Аrray[1..7,1..8] of Integer;
M : Аrray[1..7] of Integer;
S, i, j :  Integer;
Begin
Clrscr;
Randomize;
For i:=1 to  7
Do  For  j:=1 to 8
Do  C[i,j]:=Random(4)-2;
Writeln(‘Матрица  С’);
For i:=1 to 7
Do  Begin
For j:=1 to 8
Do Write(C[i,j]:4,’  ‘);
Writeln;
End;
For  i:=1 to 7
Do  Begin
S:=0;
For j:=1 to 8
Do   If  C[i,j]>0
Then  S:=S+C[i,j];
M[i]:=S;
End;
Writeln(‘Массив  М’);
For  i:=1 to 7
Do  Writeln(M[i]);
Readkey;
End.

М

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