Целочисленная матрица

[Alex Dentz]

Добрый день эксперты Делфи!
Я только учусь, но очень хочу разобраться.
Есть задача:
В целочисленной матрице (квадратной) определить-
1. сумму элементов в тех строках, которые не содержат нулей.
2. максимум среди произведений элементов диагоналей, параллельных главной диагонали матрицы.

[Hacker19_90]

1) Ну как я понял надо выбрать строки без нулей и подсчитать сумму

function GetSum(M: Matrix; count: integer): integer;
var
    i, j: integer;
    flag: boolean;
begin
     Result := 0;
     for i := 1 to count do
     begin
         flag := false;
         for j := 1 to count do
             if M[i,j] = 0 then flag := true
         if flag = false then
             for j:= 1 to count do
                  Inc(Result, M[i,j] 
     end;
end;

[Alex Dentz]

1) Ну как я понял надо выбрать строки без нулей и подсчитать сумму
Да, правильно. Можно было конечно использовать randomize для матрицы, но лучше четко забитый array.

[Alex Dentz]

Спасибо Hack! А есть какие идеи насчет этой диагонали?