Var a: array[1..100000] of integer; i,max,n: integer; begin readln(n); for i: = 1 to n do read(a[i]); max: =a[1]+a[n]; for i: = 2 to n div 2 do if max < a[i] + a[n-i] then max: = a[i] + a[n-i]; writeln(max); end. пример 6 1 2 3 3 2 1 6
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
