Program grande_somme;
Type tab=array[1..50] of integer;
Var n,d,f:integer;
t:tab;
(****************************************)
Procedure saisies(var n:integer;var t:tab);
Var i:integer;
Begin
Repeat
Writeln('n = ');
Readln(n);
Until n in [5..50];
For i:=1 to n do
Begin
writeln('T[',i,'] = ');
readln(t[i]);
End;
End;
(*****************************************)
Procedure interval(n:integer;t:tab; var d,f:integer);
Var max,i,j,s:integer;
Begin
d:=1;
f:=1;
max:=T[1];
For i:=1 to n do
Begin
s :=0;
For j:=i to n do
Begin
s:= s + T[j];
If s > max Then
Begin
d:=i;
f:=j;
max:=s;
End;
End;
End;
End;
(****************************************)
Procedure affiche(n,d,f:integer;t:tab);
Var i:integer;
Begin
Writeln('La plus grande somme est défini par les valeurs :');
For i:=d to f do
Writeln(t[i],' ');
End;
(****************P.P************************)
Begin
saisies(n,t);
interval(n,t,d,f);
affiche(n,d,f,t);
End.
UHJvZ3JhbSBncmFuZGVfc29tbWU7ClR5cGUgdGFiPWFycmF5WzEuLjUwXSBvZiBpbnRlZ2VyOwpWYXIgbixkLGY6aW50ZWdlcjsKdDp0YWI7CigqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKQpQcm9jZWR1cmUgc2Fpc2llcyh2YXIgbjppbnRlZ2VyO3ZhciB0OnRhYik7ClZhciBpOmludGVnZXI7CkJlZ2luClJlcGVhdApXcml0ZWxuKCduID0gJyk7ClJlYWRsbihuKTsKVW50aWwgbiBpbiBbNS4uNTBdOwpGb3IgaTo9MSB0byBuIGRvCkJlZ2luCndyaXRlbG4oJ1RbJyxpLCddID0gJyk7CnJlYWRsbih0W2ldKTsKRW5kOwpFbmQ7CigqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKikKUHJvY2VkdXJlIGludGVydmFsKG46aW50ZWdlcjt0OnRhYjsgdmFyIGQsZjppbnRlZ2VyKTsKVmFyIG1heCxpLGosczppbnRlZ2VyOwpCZWdpbgpkOj0xOwpmOj0xOwptYXg6PVRbMV07CkZvciBpOj0xIHRvIG4gZG8KQmVnaW4KcyA6PTA7CkZvciBqOj1pIHRvIG4gZG8KQmVnaW4Kczo9IHMgKyBUW2pdOwpJZiBzID4gbWF4IFRoZW4KQmVnaW4gCmQ6PWk7CmY6PWo7Cm1heDo9czsKRW5kOwpFbmQ7CkVuZDsKRW5kOwooKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKikKUHJvY2VkdXJlIGFmZmljaGUobixkLGY6aW50ZWdlcjt0OnRhYik7ClZhciBpOmludGVnZXI7CkJlZ2luCldyaXRlbG4oJ0xhIHBsdXMgZ3JhbmRlIHNvbW1lIGVzdCBkw6lmaW5pIHBhciBsZXMgdmFsZXVycyA6Jyk7CkZvciBpOj1kIHRvIGYgZG8gCldyaXRlbG4odFtpXSwnICcpOwpFbmQ7CigqKioqKioqKioqKioqKioqUC5QKioqKioqKioqKioqKioqKioqKioqKioqKQpCZWdpbgpzYWlzaWVzKG4sdCk7CmludGVydmFsKG4sdCxkLGYpOwphZmZpY2hlKG4sZCxmLHQpOwpFbmQuCg==