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

паскаль авс:

program kislota; uses crt; const n=30; var  e: array[1..n] of integer;   sum,nom,i: integer; begin  writeln('*** alphaues is ***');   writeln('***                  ok                        ***');   writeln();   writeln('элементы массива: ');   randomize;   nom: =0;   for i: =1 to n do      begin          e[i]: =random(100)-50;           write (e[i]: 5);       end;   sum: =e[1]+e[2];   for i: =1 to n-1 do      if (e[i]+1 + e[i+1])> sum then          begin              sum: =e[i]+1 + e[i+1];               nom: =i;           end;   writeln();   writeln('номер первого элемента пары с максимальной суммой: ',nom); end.

var

a: array [1..30] of integer;

i,k,s: integer;

begin

randomize;

for i: =1 to 30 do begin

a[i]: =random(9)+1;

write (a[i],' ');

end;

s: =a[1]+a[2];  

k: =1;  

for i: =2 to 29 do

if a[i]+a[i+1]> s then begin

k: =i;

s: =a[i]+a[i+1];

end;  

writeln;  

writeln ('number: ',k);

readln;

end.

dfxxghjmb,n

Объяснениеdxfcghjkl,.vcbnm,