Найдите все натуральные числа, которые ровно в 2 раза больше среднего арифметическое всех своих делителей.

Program example_dom; 
var col_pol,col_otr,i,n,k,s:integer; 
a:array[1..100] of integer; 
Begin 
Randomize; writeln('Введите размерность: ');readln(n); 
For i:=1 to n do 
Begin 
a[i]:=-50+random(100); 
write(a[i]:4); 
end; 
s:=s+a[i]; 
inc(k); 
col_pol:=0; 
col_otr:=0; 
for i:=1 to n do 
begin 
if a[i]>0 then col_pol:=col_pol+1 
else col_otr:=col_otr+1; 
end; 
writeln('сумма элементов массив = ',s); 
writeln('количество положительных элементов=',col_pol); 
writeln('количество отрицательных элементов=',col_otr); 
readln; 
End.

ответ:

пошаговое объяснение:

пусть х км/ч - скорость течения реки,

тогда скорость катера по течению (х+з0)км/ч,

а против течения (30-х)км/ч.

так как время затраченное катером на движение по течению реки 3,5ч, то путь который он пройдет по течению равен 3,5(х+30)км.,

а время движения катера против течения равно 4ч.,

значит путь который он пройдет против течения равен 4(30-х)км.

путь по течению и против течения (по условию) одинаковый, получаем:

3,5(х+30)=4(30-х),

3.5х+105=120-4х

3.5х+4х=120-105

7.5х=15

х=2

т.е., 2км/ч - скорость течения реки,

а путь по течению равен: 3.5(2+30)=112км.

                                    v, км/ч           t, ч             s,км

по течению                 30+x             3,5             (30+x)*3.5

против течения         30-x               4                 (30-x)*4  

течение                       x                

приравниваем расстояния по течению и против:

(30+x)*3.5=(30-x)*4

105+3.5x=120-4x

3.5x+4x=120-105

7.5x=15

x=15/7.5

x=2

скорость течения   2 км/ч

расстояние   по течению реки: (30+x)*3.5=(30+2)*3,5=32*3,5=112 (км)