Создать массив A(15). Найти MAX среди сумм пар соседних элементов A[1]+A[2], A[2]+A[3] и т.д.
Создать массив A(15). Найти MAX среди сумм пар соседних элементов A[1]+A[2], A[2]+A[3] и т.д.
Гость
Ответ(ы) на вопрос:
Гость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.
Гость=((( цаощыоаозылазфлщзалщзылаоыошзаошыоашкошаошщ
Не нашли ответ?
Похожие вопросы