помогите решить чайнику)

+ 0 -

Vmf0874

24 июня 2016 г., 5:16:53 (7 лет назад)

Маловато баллов за такую задачку.

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);