program abs;
type vect=array[1..100] of real;
var a,b,c,d,f :vect;n,n1,m,m1,z,sg,p,sgf:integer;
procedure wwod(n:integer;var x:vect;q:string);
var i:integer;
begin
For i:=1 to N do begin write (q,'[',i,']=');readln(x[i]);
end;end;
procedure shet (n,m:integer;x:vect);
var i:integer;p,sg:real;
begin p:=1;
for i:=1 to n do
p:=p*x[i];
sg:=exp(1/n*ln(p));
f[m]:=sg;
end;
BEGIN
Write('n=');
readln(n);
Write('m=');
readln(m);
Write('n1=');
readln(n1);
Write('m1=');
readln(m1);
wwod (n,A,'A');
wwod (m,B,'B');
wwod (n1,C,'C');
wwod (m1,D,'D');
shet (m,1,A);
shet (n,2,B);
shet (n1,3,C);
shet (m1,4,D);
shet (4,5,F);
For z:=1 to 4 do
writeln ('f[',z,']=',f[z]);
writeln('sgf=',f[5]);
end.
как передаются данные, данные |