Написать подпрограмму-функцию, решающую задачу : Дано натуральное число n и вещественное А1 , А2, ... Аn , которые вводятся по одному . Получить последовательность А1, А1А2, А1А2А3, ..., А1А2.. Аn.
BlackShadow
25.05.2004 0:03
Код
Var
n:Integer;
a:Array[0..100] Of Double;
an:Double;
Begin
Write('Enter n: ');
ReadLn(n);
a[0]:=1;
For i:=1 To n Do
Begin
Write('Enter A',i,': ');
ReadLn(an);
a[i]:=a[i-1]*an
End;
WriteLn('Chain:');
For i:=1 To n Do
WriteLn(a[i])
End.