Создать массив A (15). Найти MAX среди сумм пар соседних элементов A[1]+A[2], A[2]+A[3] и т. д.

Question

Информатика

Дашура

12 декабря, 15:49

Создать массив A (15). Найти MAX среди сумм пар соседних элементов A[1]+A[2], A[2]+A[3] и т. д.

+4

Ответы (1)

Знаете ответ на вопрос?

Павлина · Answer 1

Var a:array[1 ... 15]of integer;

i, max:integer;

Begin

for i: = 1 to 15 do

a[i]:=random (100) ;

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

for i: = 1 to 14 do

if max < a[i]+a[i+1] then

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

writeln (max) ;

End.