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