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

Маловато баллов за такую задачку.Var z:array[1..16] of integer; k:array[1..16] of real; i,p,s:integer; max:real;Begin randomize; for i:=1 to 16 do z[i]:=random(101); write('Z='); for i:=1 to 16 do write(z[i],' '); writeln; writeln; p:=0; s:=0; for i:=1 to 16 do   if (i mod 2)<>0 then     begin      s:=s+z[i];      p:=p*z[i];     end; writeln('P=',p); writeln('S=',s); writeln; for i:=1 to 16 do k[i]:=z[i]*exp(ln(i*z[i])/3); write('K='); for i:=1 to 16 do write(k[i]:0:0,'  '); max:=k[1]; for i:=1 to 16 do   if k[i]>max then max:=k[i]; writeln; writeln('max=',max:0:0); for i:=1 to 16 do   if k[i]=max then k[i]:=0; write('K='); for i:=1 to 16 do write(k[i]:0:0,'  ');End.