Опишите на одном из языков программирования алгоритм поиска трех последовательных эле-ментов, сумма которых максимальна, в числовом массиве из 30 элементов. вывести номер эле-мента в этой последовательности, сумму последовательности.

Program zadbl;

uses crt;

var a, b, c, i, s:integer;

m:array[1 ... 30] of integer;

begin

s:=-1;

for i:=1 to 30 do

begin

m[i]:=random (100) ;

write (m[i]:3) ;

end;

for i:=1 to 28 do

begin

if m[i]+m[i+1]+m[i+2]>s then

begin

a:=m[i];

b:=m[i+1];

c:=m[i+2];

s:=a+b+c;

end;

end;

writeln (' a b c') ;

write (a:3) ;

write (b:3) ;

write (c:3) ;

readln;

end.