процедуры и функции : Дан вектор A(n). Построить вектор B(n), i-ый элемент которого равен среднему арифметическому (Паскаль)

[vladicvladic123]

Нужно переделать этот код, чтобы было через процедуры и функции (без передачи параметров). Условие : Дан целочисленный вектор A(n). Построить вектор B(n), i-ый элемент которого равен среднему арифметическому первых i-элементов вектора A:B[i]=(A[1]+...+A[i])/i

Сам код (турбо паскаль) :

Uses crt;
Var A:array[1..100] of integer; i,j,n,s:integer;
B:array[1..100] of real;
Begin
ClrScr; Randomize;
Write('n='); Readln(n);{ввод кол-ва элементов в массивах}
For i:=1 to n do
 Begin
  A[i]:=random(51);{генерация произвольного элемента массива}
  s:=0;
  For j:=1 to i do s:=s+A[j];{расчёт суммы первых i элементов}
  B[i]:=s/i;{среднее арифметическое и перенос в массив В}
 End;
ClrScr;
For i:=1 to n do Write(A[i]:7);{вывод первого массива}
Writeln;
For i:=1 to n do Write(B[i]:7:2);{вывод второго массива}
Readln;
End.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[vladicvladic123]

Помогите))

[Serge_Bliznykov]

вытянуть часть кода из основной программы в процедуры без параметров - это дело не хитрое.
Почему сами это не хотите сделать?!

впрочем, извольте:

Uses crt;
Var 
  A : array[1..100] of integer; 
  n : integer;
  B : array[1..100] of real;

procedure VvodMassivA;
var i:integer;
begin
  Randomize;
  Write('n='); Readln(n);{ввод кол-ва элементов в массивах}
  For i:=1 to n do
     A[i]:=random(51);{генерация произвольного элемента массива}
end;

procedure ZapolnitMassivB;
var i,j,s:integer;
begin
 For i:=1 to n do
  begin
   s:=0;
   For j:=1 to i do s:=s+A[j];{расчёт суммы первых i элементов}
   B[i]:=s/i;{среднее арифметическое и перенос в массив В}
 end;
end;

procedure  VyvodMassiveA;
var i:integer;
begin
  WriteLn('Massive A: ');
  For i:=1 to n do Write(A[i]:7);{вывод первого массива}
  Writeln;
end;


procedure  VyvodMassiveB;
var i:integer;
begin
  WriteLn('Massive B: ');
  For i:=1 to n do Write(B[i]:7:2);{вывод второго массива}
  Writeln;
end;

Begin
  ClrScr; 

  VvodMassivA;

  ZapolnitMassivB;

  VyvodMassiveA;

  VyvodMassiveB;

  Readln;
End.