[lmikle]

Сообщение от Dmitry_DM

Ну зачем же так?
Я вот например решил человеку помочь..
Вот решение задачи №8

Затем, что за лень надо платить.
Все задачаи элементарные. Достаточно понимать что такое массивы + циклы. Все остальное, по сути, решается элементарно. Например, задача 5. Сначала находим max элемент ниже главной диагонали. Далее по диагонали и выше нее с сумматор складываем все, что больше найденного значения.

Код:

function Task_5(A : Array Of Array Of Integer) : Integer;
var
  _Max : Integer;
 I, J : Integer;
begin
  _Max := A[Low(A),Low(Low(A))];
  For I := Low(A) To High(A);
    For J := I+1 To High(A[i]) Do
      If A[I,J] > _Max Then _Max := A[I,J];

  Result := 0;
  For I := Low(A) To High(A) Do
    For J := Low(A[i]) To I Do
      If A[I,J] > _Max Then Result := Result + A[I,J];
end;

Как-то так...