Да, дело в цикле. Там он специально настроен на этот пункт. Замените его на
for i := 1 to n do
for j := i to n do
if (i+j>n) then sum := sum + a[i, j];
И все заработает. Надеюсь, Вам можно применять ветвления. Циклом я отбираю пункт Б, и ветвлением отбираю пункт Г. Их слиянием как раз и есть пункт К.
Наверное алгоритм но я точно не знаю
С помощью Конструктора и мастера
program fantscrin;
const n = 8;
var a: array [1..n] of integer;
i,s,p:integer;
Begin
for i:=1 to n do
a[i]:= random(11)+1;
for i:=1 to n do
write(a[i], ' ');
s:=0;
p:=1;
for i:=1 to n do
if (i mod 2 <> 0) then p:=p*a[i]
else s:=s+a[i];
writeln('');
writeln('Сумма = ',s);
writeln('Произведение = ',p);
End.