Суть вопроса вот в чем как значения sg и и массив f,который формируется в процедуре shet передаются после процедуры и не теряются....Сеня спросили на защите...

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.

Так ты же в этой процедуре изменяешь глобальный массив

 f[m]:=sg;

Либо я не так уловил вопрос.

Да все прально,а как он дальше этот массив то передается

А он никуда и не передается... Он - глобальный, куда ему еще передаваться - то надо? И так к нему есть доступ отовсюду...

И еще она спрашивает,почему не теряется

У тебя есть глобальный массив, как написал volvo доступ к нему есть ото всюду, поэтому изменяя его в любом уровне программы ты изменишь его для всей программы. А эти значения sg внутри процедуры присваиваются массиву. После того как ты выходишь из процедуры, этих sg больше нет, но ведь ты передал их главному массиву во время выполнения процедуры. Они именно передались и принадлежат главному массиву.

во,спасибо большое,понял