Решения задач acmp.ru
Главная
Вход
Регистрация
Четверг, 01.10.2020, 04:47Приветствую Вас Гость | RSS
Меню сайта

Категории раздела
Pascal [121]
C++ [76]

Поиск

Мини-чат
200

Легкий заработок!

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Форма входа

Главная » Файлы » Pascal

0496 Сбор черники

Скачать файл можно после просмотра рекламы:

12.06.2012, 15:56
Program da; 
type mass=array[0..1002] of longint; 
var f,h:text; m:mass; max,min,a,l,q,b,i,k,n:longint; 
Begin 
assign(f,'input.txt'); 
assign(h,'output.txt'); 
reset(f); 
rewrite(h); 
readln(f,n); 
read(f,m[1+n]); 
m[1]:=m[1+n]; 
read(f,m[2+n]); 
m[2]:=m[2+n]; 
for i:=3 to n do 
read(f,m[i]); 
max:=m[1]+m[2]+m[3]; 
for i:=2 to n+1 do 
Begin 
if m[i]+m[i-1]+m[i+1]>max 
then max:=m[i]+m[i-1]+m[i+1]; 
end; 
writeln(h,max); 
close(f); 
close(h); 
end. 
Категория: Pascal | Добавил: shum
Просмотров: 3097 | Загрузок: 1
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Это интересно!


Copyright MyCorp © 2020