Есть две задачи:первая связана с массивом, вторая-вывести 5 первых совершенных чисел.(платно)

[Andreevi4_p]

Есть 2 задачи, пробовал сделать, ничего не получается.
Просьба или решить полностью, или помочь разобраться самому.
Вторую задачу пробовал сделать так:
implicit none
integer i,k,N,p,j
integer Primes(130),A(5)
logical IsPrime
Primes(1)=1
Primes(2)=2
N=3
k=3
do while(k<=130)
IsPrime=.TRUE.
do i=2,N-1
if (mod(N,I)==0) then
IsPrime=.FALSE.
exit
end if
end do
if (IsPrime) then
Primes(k)=N
k=k+1
end if
N=N+1
end do
do j=1,5
if(p.eq.Primes(k)) then
A(j)=(2**(p-1))*((2**p)-1)
end if
end do
print *,A
end


Не получается.
2 задачи до 27.06, даю 50 грн. Возможен торг.
Зарание благодарен.

[Step_UA]

По задаче во вложении что не выходит то?
Заполни массив X для всех 15 элементов.
Затем в цикле проверяй среднее арифметичекое каждой пары и запоминай наилучшее приближение к Y ...

[Stepler]

стучите 392-172-602

[Pein95]

хм... 5 совершенное число ето: 33 550 336
не знаю какой алгоритм здесь поможет...
первые 4 не проблема но вот пятое...

[Andreevi4_p]

Массив я вывел, проблема заключается со средним арифметическим, не могу вывести и с тем, как найти приближенное с.а. к заданому y

[Step_UA]

стукни в аську или скайп - помогу с алгоритмом ...