[Muxa]

Дана непустая последовательность положительных целых чисел а1,a2…., оканчивающаяся нулем. Получить a1, a1 *a2 , a1 *a2*a3 ,…, 0.

[lmikle]

Называется "вложенный цикл".

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

var   A : Array Of Integer; // сама последовательность, где последний эл = 0   I, J : Integer;   M : Integer; begin   For I := Length(A)-1 DownTo Low(A) Do     Begin       M := 1;       For J := Low(A) To I Do         M := M * A[J];       A[i] := M;     End; end;

Весь фокус в том, что надо идти во внешнем цикле в обратную сторону, что бы не испортить цифры. Но можно решить эту задачу и по другому, в один цикл (алгоритмическая опимизация - вычисление следующего эл-та через предыдущий):

Код:

1 2 3 4 5 6 7

var   A : Array Of Integer; // сама последовательность, где последний эл = 0   I : Integer; begin   For I := Low(A)+1 To High(A)-1 Do     A[i] := A[I-1] * A[i]; end;

Вот.

[Muxa]

Спасибо. Весь парился из-за того, что при реализации задачи нам было запрещено использование массивов.

[Muxa]

Тему можно закрыть