Дано целое число N ( больше 1) и набор из N чисел. Найти максимальную сумму двух соседних чисел из данного набора.10 минут ждууу ...........
Дано целое число N (> 1) и набор из N чисел. Найти максимальную сумму двух
соседних чисел из данного набора.10 минут ждууу ...........
Гость
Ответ(ы) на вопрос:
Гостьuses crt;
const n = 5;
var a:array[1..n] of integer;
i,max:integer;
begin
for i:=1 to n do
readln(a[i]);
max = a[1]+a[2];
for i:=1 to n-1 do
if (a[i]+a[i+1] > max) then
max:= a[i]+a[i+1];
writeln(max);
end.
ГостьГотово................
Не нашли ответ?
Похожие вопросы