Цитата:
Сообщение от Dmitry_DM
Ну зачем же так?
Я вот например решил человеку помочь..
Вот решение задачи №8
|
Затем, что за лень надо платить.
Все задачаи элементарные. Достаточно понимать что такое массивы + циклы. Все остальное, по сути, решается элементарно. Например, задача 5. Сначала находим max элемент ниже главной диагонали. Далее по диагонали и выше нее с сумматор складываем все, что больше найденного значения.
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | 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 ;
|
Как-то так...