массивы, линейный односвязный список , файлы +, +последовательного и прямого доступа Опции

[Ира]

Задан массив, состоящий из n неотрицательных чисел.
Найти в нём индекс элемента для которого сумма элементов, стоящих до него, наименее отличается от суммы элементов, стоящих после него.
( Числа хранятся в линейном односвязном списке или в файле с последовательным доступом. Найти наиболее эффективные алгоритмы для случая прямого и последовательного доступа с возможностью использовать рабочий массив размерностью n или без неё)

Спасибо за внимание,
буду благодарна за ответы.

[zx1024]

Пусть A - указатель на список с полями inf - само число и next - указатель на следующий.
L, R, d, i - целые переменные;
p - указатель, чтобы бегать по списку.

Код

 {...Задание списка или чтение списка из файла...}

 R := 0;
 p := A;
 while p <> nil do
 begin
   R := R + p.inf;
   p := p.next
 end; {подсчитали сумму эл-тов}

 i := 1;
 d := R;
 L := A.inf;
 p := A.next;
 R := R - p.inf;
 while (d >= abs(L-R)) and (p<>nil) do
 begin
   inc (i);
   d := abs (L-R);
   L := L + p.inf; {левая сумма увеличивается на текущий элемент}
   p := p.next;
   R := R - p.inf; {из правой суммы вычитается следующий элемент, который становится текущим}
 end;
 
 {в i будет результат}

end;

Сообщение отредактировано: zx1024 - 16.10.2004 13:12