Олимпиадные задачи по программированию. Ч. 3. Лучшие решения. Ускова О.Ф - 26 стр.

UptoLike

Составители:

Рубрика:

Здесь мы полагаем , что числа S[i,0] и S[i,i+1] равными 0. Ответ

на задачу можно узнать, вычислив max S[N,j]

program triangle;

var A,S:array[1..100,1..100] of integer;

N,MaxS:integer;

procedure ReadData;

var i,j: integer;

begin

assign(input,'input.txt');

reset(input);

read(N);

for i:=1 to N do

for j:=1 to i do

read(A[i,j]);

close(input);

end;

function Max(a,b:integer):integer;

begin

if a>=b then Max:=a else Max:=b;

end;

procedure Solve;

var i,j:integer;

begin

S[1,1]:=A[1,1];

for i:=2 to n do begin

S[i,1]:=s[i-1,1]+A[i,1];

for j:=2 to i-1 do begin