Опишите на одном из языков программирования алгоритм поиска трех последовательных эле-ментов, сумма которых максимальна, в числовом массиве из 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.