Дано целое число N (> 1) и набор из N чисел. Найти максимальную сумму двух соседних...

Question

Дано целое число N (> 1) и набор из N чисел. Найти максимальную сумму двух

соседних чисел из данного набора.10 минут ждууу ...........

Comments

Паскаль?

---

да

---

срочно надо)

---

поможешь ?)

Answer 1

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.

Comments

for i:=1 to n-1 do
for j:=i+1 to n do что за команды ??

---

for i:=1 to n-1 do

---

if (a[i]+a[i+1] > max) then

---

пардон затупил что-то

Answer 2

Готово................

Comments

уверен?что всё правильно ?

---

max = a[1]+a[2];

---

это в какой строке?

---

в задаче наверху

---

Там двоеточие пропущено)

---

Почти? Чем же не утраивает? я основу пишу

---

я твою спишу,думаю что правильно,сам хз

---

?)))

---

сверху теперь тоже почти правильно.

---

Ну извинтиляюсь, по привычке на С++ так написал...