Пожалуйста, помогите! В программе Паскаль.

Question

Пожалуйста, помогите! В программе Паскаль.

---

Answer 1

program raf105;

var a:array[1..10000] of integer;

n,maxsum,i,j:integer;

begin

write('Введите количество чисел (N): ');

readln(n);

writeln('Вводите числа по очереди:');

maxsum:= -1;

for i:=1 to n do

 readln(a[i]);

for i:=1 to n do

 for j:=1 to n do

   if (a[i]+a[j] > maxsum) and (((a[i]+a[j]) mod 3)=0) and (((i+j) mod 3)=0)

     then maxsum:= a[i]+a[j];

writeln('Вывод: ',maxsum);

end.