Составить блок-схему алгоритма и программу на алгоритмическом языке. Язык Паскаль с...

Const
n = 6;

var
a: array[1..n] of double;
i: integer;
s, z: double;

begin
Randomize;
Writeln('Элементы массива');
z := 0;
for i := 1 to n do
begin
    a[i] := Random;
    Write(a[i]:13:10);
    if (i mod 2)=0 then s:=1 else s:=-1;
    z:=z+s*power(a[i],i)/i
end;
Writeln;
Writeln('Z=',z)
end.

Тестовое решение:
Элементы массива
0.8154654227 0.5427680088 0.4687027379 0.4716027125 0.7476417570 0.8805677969
Z=-0.659140947600361

Блок-схема во вложении.

Составить блок-схему алгоритма и программу ** алгоритмическом языке. Язык Паскаль с...