задача 11 класс(цикл,массив)

[qq2000]

пожалуйста 2 задачки.

1 задача : Определить является ли введенное число совершенным ( с помощью любого цикла)

2 задача: В линейной таблице найти сумму всех совершенных чисел.

Плиз, завтра сдавать.

наш уровень примерно такой по задачам :

Program adasd; 

var 
A:array[1..10]of integer; 
c,i,min,nmin,nmax,max:integer; 

Begin 
writeln('Замена минимального и максимального значении таблицы'); 
for i:=1 to 10 do 
begin 
write('Введите ',i,'-ый элемент:'); 
readln(A[i]); 
end; 
min:=A[1]; 
nmin:=1; 
for i:=2 to 10 do 
if A[i]< min then 
begin 
min:=A[i]; 
nmin:=i; 
end; 
max:=A[1]; 
nmax:=1; 
for i:=2 to 10 do 
if A[i]> max then 
begin 
max:=A[i]; 
nmax:=i; 
end; 
c:=min; 
A[nmin]:=max; 
A[nmax]:=c; 
for i:=1 to 10 do 
begin 
write(i,'-ый элемент:'); 
writeln(A[i]); 
end; 
End.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Poma][a]

и? в чем проблема? допустим такое решение : находишь все делители числа, загоняешь их в массив. и + все элементы массива. если заданно число = сумме то 'ДА', иначе 'НЕТ'

З.Ы. и если так срочно то может фриланс)