Помогите, пожалуйста составить программу на языке программирования Pascal.Очень надо.

Question

Дан массив Z [ 16 ] любых численных элементов. 
Определить: 
1) Произведение Р и сумму S элементов массива, занимающих нечётные места; 
2)Сформировать новый массив K [ 16 ] : 
K [ i ] = Z [ i ] * на корень 3й степени из i * S

Александр Логунов · Accepted Answer

var z,k:array[1..16]of real; i:integer; s,p:real; 
begin 
randomize; for i:=1 to 16 do z[ i]:=-99+random(199); s:=0; p:=1; 
for i:=1 to 16 do write(z[ i]:8:2); writeln; writeln; 
for i:=1 to 8 do begin s:=s+z[2*i-1]; p:=p*z[2*i-1] end; 
writeln('S=',s:0:2,' , P=',p:0:2); writeln; 
for i:=1 to 16 do k[ i]:=z[ i]*exp(ln(i*s)/3); 
for i:=1 to 16 do write(k[ i]:8:2); writeln; writeln; readln 
end.