| Главная » Статьи » Задачи с acm.timus.ru » Пакет решений на 15.03.08 |
1296
| var s, i, d, n, x:longint; function max (a, b:longint):longint; begin if a>b then max:=a else max:=b; end; begin Read (n); s:=0; d:=0; for i:=1 to n do begin Read (x); s:=max (s+x,x); d:=max (d, s); end; write (d); end. | |
| Категория: Пакет решений на 15.03.08 | Добавил: solver (15.03.2008) | |
| Просмотров: 1116 |