Опишите ** одном из языков программирования алгоритм поиска трех последовательных...

Question

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

Answer 1

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.