Поиск максимума, сумма делителей

[Анна Я]

Вводится длина одномерного массива, состоящего из целых чисел, и его элементы. Найти самую большую сумсму делителей одного элемента

[Sheka]

Сделаю. Обязательно договоримся! 255507394.

Уважаемые админы и модераторы! сделайте, пожалуйста, личную переписку, раз уже нельзя писать во фрилансе предложения помощи!!!

[azrael]

Пишите в аську 55655222 - помогу.

[BHy4ok]

Ввод чисел сделал рендомный. Если необходимо, то сделайте ручным.

[syntax='Pascal']
uses
Crt;
var
a:array[0..100] of integer;
i,j,n,k,max,pos,z:integer;
begin
ClrScr;
k:=0;
max:=0;
write('Введите кол-во элементов массива: ');
readln(n);
writeln;
randomize;
for I := 1 to n do
a:=random(50);
for I := 1 to n do
writeln(i, ' - ', a);
writeln('------------');
for I := 1 to n do
begin
for j := 1 to a do
If (a mod j = 0) then
k:=k+j;
if max<k then
begin
max:=k;
z:=a;
pos:=i;
end;
k:=0;
end;
writeln('Максимальная сумма делителей = ',max);
writeln('Позиция = ',pos);
writeln('Число = ',z);
readln;
end.
[/syntax]

[Хыиуду]

Можно и оптимизировать

Код: Выделить всё

  for I := 1 to n do
    a[i]:=random(50);
  for I := 1 to n do
      writeln(i, ' - ', a[i]);

Ничто не мешает сделать это одним циклом

Код: Выделить всё

  for I := 1 to n do
begin
    a[i]:=random(50);
    writeln(i, ' - ', a[i]);
end;

Далее, for j := 1 to a do
лучше for j := 1 to a) div 2 do
Потому что из чисел от x/2+1 до x заведомо нет ни одного делителя числа х, кроме самого этого числа. Кстати - вопрос, следует ли считать это в условиях самой задачи.

Анна Я, второе и последнее китайское предупреждение - называйте темы правильно. В противном случае буду удалять

[atavin-ta]

Вводится длина одномерного массива, состоящего из целых чисел, и его элементы. Найти самую большую сумсму делителей одного элемента

Так и знал, что на самом деле тема называется "Поиск максимума суммы делителей", а не через запятую, как это написано.

[Хыиуду]

Так и знал, что на самом деле тема называется "Поиск максимума суммы делителей", а не через запятую, как это написано.

Согласитесь, что из двух кусков легко сложить целое.