Смотри:
1. Чем больше исходные числа в массиве, тем больше их сумма. => макс. значения числа в массиве по условию: 98 (макс. 2-значное четное число).
2. Цикл выполнится 10 раз, каждый раз прибавляя к переменной s
98 (от элемента A[i]) и еще 98 (от элемента A[i+1]). =>
s(max) = 10 * (98+98) = 1960.
Ответ: 1960.
P.s. Вот пруф:
constn = 10;varmas : array [0..n] of byte;sum : longint;i: byte;
begin
for i:=0 to n domas[i]:=98;
for i:=0 to n-1 dosum:=sum + mas[i] + mas[i+1];
write (sum);end.