Требуется подсказка в решении

[HeyJhonImhere]

Подскажите пожалуйста, что не так. Все время выводит 0. Мне надо найти наименьшее совершенное число, у которого индекс равен 3. Дан массив целых чисел.
(Совершенные числа)
Код Pascal

var a: array [1..10] of integer;
n,i,m,e:Integer;
f:boolean;
begin
Readln(n);
e:=0
f:=false;
m:=0;
for i:= 1 to n do begin
Readln(a[i]);
if (i mod 3 = 0) then begin
for g:=1 to (a[i] - 1) do
if (a[i] mod i = 0) then m:= m+i;
if m=a[i] then f:= true
else f:= false;
if (e<a[i]) and (f=true) then e:= a[i];
end;
end;
writeln(e);
end.

[ViktorR]

...
for i:= 1 to n do begin
Readln(a[i]);
if (i mod 3 = 0) then begin
for i:=1 to (a[i] - 1) do
...

В теле цикла параметр цикла изменяет свое значение.
Вероятно во вложенном цикле следует заменить i на j.


Как-то так, ...

[HeyJhonImhere]

Я попробовал, как вы сказали. Программа все равно не находит мин совершенное число. 0 выдает. Никак не могу понять, почему. Пересчитывал вручную (тетрадка). Вроде все верно

[ViktorR]

Я сказал только про параметр вложенного цикла, но видимо и в алгоритме надо править.
Ведь использование вложенного цикла - это не только сам цикл, но и перебор каких то значений.


Как-то так, ...