дано натуральное число n,действительные числа a1,a2,...,a^.вычислить: Min(-a,a2,-a3,...,(-1)^a^)
Если там -a^1 A^2(a в степени 2) -a^3 ... (-1)^n*a^n то решение будет таким
Program gt; var i, n:integer; a,min,p:real; begin read(N); read(A); p:=1; for i:=1 to n do begin p:=-a*p; if(pend; writeln(min); end.