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

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