Реализовать-то я и сам могу, мне надо сам алгоритм решения! Можешь помочь?Лелик писал(а):Tre,
Ты алгорим как счиать знаешь?
Если да и не знаешь как реализовать на паскале, то дай посмотрю что можно сделать.
Мне ж книги надо поднимать чтоб вспомнить
Код: Выделить всё
CONST
N = 10;
cMaxWord=1000;
TYPE
TMatr = array [1..N,1..N] of word;
VAR
MyMatr : TMatr;
MaxSum : longint;
Sum : longint;
i,j : byte;
BEGIN
randomize;
for i:=1 to N do
for j:=1 to N do
MyMatr[i][j]:=random(cMaxWord);
{idem do diagonali:}
MaxSum:=0;
for i:=1 to N-1 do {N-1 - samu diagonal propuskaem}
begin
Sum:=0;
for j:=1 to i do Sum:=Sum+MyMatr[j,i-j+1];
if Sum>MaxSum then MaxSum:=Sum
end;
{idem posle diagonali:}
for i:=2 to N do {2 - samu diagonal propuskaem}
begin
Sum:=0;
for j:=i to N do Sum:=Sum+MyMatr[j,N-j+i];
if Sum>MaxSum then MaxSum:=Sum
end;
writeln('Maximum = ',MaxSum);
readln
END.