Zi =-2^ai*e^ai+1 пример в паскале

[7olia7]

написать программу, вывести результаты.

Составить блок-схему и программу вычисления Zi.
Zi =-2^ai*e^ai+1
Ai=3; 05; 1, 2; 0; 2.
Среди значений Zi определить есть ли равное 0, и вывести на печать его номер.
Вот что я на решала:


Program zadacha;
uses crt;
var
i:integer;
z:array [1..5] of real;
a:array [1..5] of real;
begin
clrscr;
writeln('vvedite a[i]');
for i:=1 to 5 do
readln (z[i]);
for i:=1 to 5 do
begin
z:=exp (a[i]*ln(-2))*exp(a[i])+1; правильно или нет???
writeln (z[i]:8:3);
if z[i]=0 then
writeln('poziciy z[i]=0',i);
writeln(i);
end;
readln;
end.

поправьте что не так??

[Летучий_СкилетиК]

Zi не вводимое, а вычисляемле значение(да и массив Z вообще не нужен), а Аi уже известно по условию.
это убрать

for i:=1 to 5 do
readln (z[i]);

и еще

ln(-2)

нельзя вычислять ln от отрицательного числа.
делаем так:

...
for i:=1 to 5 do
begin
z:=exp (a[i]*ln(2))*exp(a[i])+1;
if a[i] mod 2 <> 0 then z := -z;
if z=0 then writeln('poziciy z=0',i);
end;...