Отримання знань

дистанційна підтримка освіти школярів

• Відгуки

Тут ви можете виконати завдання чи задати питання по змiсту цього уроку.

1 (1) 2014-09-23 22:21:23
{NewCircle2 v1}
const
max=10000;
var
i,j,n,k,l,s:longint;
a:array[1..max,1..max] of longint;
begin
Read(n);
for i:=1 to n do
Read(a[i,i]);
k:=1;l:=1;s:=a[1,1];
for i:=1 to n-1 do
for j:=i+1 to n do begin
a[i,j]:=a[i,j-1]+a[j,j];
if a[i,j]>s then begin
k:=i;l:=j;s:=a[i,j];
end;
end;
Writeln(k,' ',l,' ',s);
end.

1 (1) 2014-09-23 22:22:19
{NewCircle2 v2}
const
max=10000;
var
i,j,n,k,l,s,st:longint;
a:array[1..max] of longint;
begin
Read(n);
for i:=1 to n do
Read(a[i]);
k:=1;l:=1;s:=a[1];
for i:=1 to n do begin
st:=0;
for j:=i to n do begin
st:=st+a[j];
if st>s then begin
k:=i;l:=j;s:=st;
end;
end;
end;
Writeln(k,' ',l,' ',s);
end.

1 (1) 2014-09-23 15:23:35
{NewCircle2 v3}
var
n,k,l,kt,lt,s,st,m:longint;
BEGIN
Read(n);
Read(m);
k:=1;l:=1;kt:=1;s:=m;st:=m;
for lt:=2 to n do begin
Read(m);
if st<0 then begin
kt:=lt;
st:=m;
end
else begin
st:=st+m;
end;
if st>s then begin
k:=kt;l:=lt;s:=st;
end;
end;
WriteLn(k,' ',l,' ',s);
END.

Повернутися до уроку

Повернутися до перелiку уроків курсу

В системі: гості - (); користувачі - (0)