как передаются данные, данные Опции

[qwerty)]

Суть вопроса вот в чем как значения 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.

[qwerty)]

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

 f[m]:=sg;

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

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

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