Нахождение и вывод наибольшей суммы двух соседних элементов массива, которая не кратна трем - PascalABC.NET

Формулировка задачи:

Дан целочисленный массив из 40 элементов. Элементы массива могут принимать целые значения от –10 000 до 10 000 включительно. Опишите на одном из языков программирования алгоритм, который находит и выводит наибольшую сумму двух соседних элементов, которая не кратна 3-м. Если таких пар нет, вывести на экран 0. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них.
const 
     N=40;
var
     a: array[1..N] of integer;
     i, k, sum, max: integer;
begin
     for i:=1 to N do
       readln (a[i]);
    ...
 
end.
Добавлено через 3 минуты Попыталась пойти так, но выводит только сумму двух последних элементов
const N=10;
var
 a: array[1..N] of integer;
 i, k, sum, max: integer;
begin
 for i:=1 to N do
  readln (a[i]);
  max:=0;
 for i:=1 to N-1 do
   sum:=a[i]+a[i+1];
   if (sum mod 3 <> 0) and (sum>max) then 
 begin
   max:=sum;
   writeln(max);
 end
   else
   writeln('0');
end.

Код к задаче: «Нахождение и вывод наибольшей суммы двух соседних элементов массива, которая не кратна трем - PascalABC.NET»

textual
sum:=a[i]+a[i+1];

8   голосов, оценка 4.250 из 5


СОХРАНИТЬ ССЫЛКУ