Составить блок-схему алгоритма и программу на алгоритмическом языке. Язык Паскаль с функцией возведения в степень power()...
Составить блок-схему алгоритма и программу на алгоритмическом языке. Язык Паскаль с функцией возведения в степень power()...
Гость
Ответ(ы) на вопрос:
Гость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
Блок-схема во вложении.
Не нашли ответ?
Похожие вопросы