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

Задание:

Опишите на русском языке или одном из языков программирования алгоритм поиска номер первого из двух последовательных элементов в целочисленном массиве из 30 элементов, сумма которых максимальна (если таких пар несколько, то можно выбрать любую из них).

Решение:

Выделяем целочисленные переменные i1 и Sum; в i1 будем хранить номер первого в паре выбранных соседних элементов, а в Sum – их сумму. В i1 записываем начальное значение 1, а в Sum – сумму первых двух элементов. В цикле рассматриваем все элементы массива со второго до N-1, если сумма текущего элемента и следующего за ним больше Sum, то запоминаем эту сумму в переменной Sum, а номер текущего элемента – в i1.​

1. const N=30;
2. var A:array[1..N] of integer;
3.  i, i1, Sum: integer;
4.   for i:=1 to N do readln(A[i]);
5.  i1 := 1;
6.  Sum := A[1] + A[2];
7.  for i:=2 to N-1 do
8.  if A[i]+ A[i+1] > Sum then begin
9. i1 := i;
10. Sum := A[i] + A[i+1];
11. end;
12. writeln(i1);
13. end.