Меню сайта

Задача №22
Дан целочисленный массив из 30 элементов. Найти 3 последовательных элемента, сумма которых максимальна.
Program mas_22-
const n=30-
var a:array[1..n] of integer-
— — Max, Sum, i, k: integer-
begin
— for i:=1 to n do —
begin
writeln(введите’,i,’элемент‘)-
readln(a[i])-
end-
— Sum:=a[1]+a[2]+a[3]-
— Max:=Sum- k:=1-
— for i:=2 to n-2 do begin
— — Sum:=Sum-a[i-1]+a[i+2]- —
— — if Sum &gt-Max then begin
— — — Max:=Sum-
— — — k:=i-
— — end-
— end-
— for i:=k to k+2 do
— — writeln(‘A[‘,i,’]=’,a[i])-
Readln-
end.
Категория: Массивы | Дата: 20.12.12

Меню раздела
Блок