program dfh;
 
var A,B:array[1..100] of real;
    i,n:integer;
    f:text;
 
function sr(n:integer):real;
var i:integer;  sum:real;
begin
sum:=0;
for i:=1 to n-1 do sum:=sum+A[i];
sr:=(sum)/(n-1);
end;
 
begin
write ('Vvedite razmer massiva  A: ');
readln (n);
 
for i:=1 to n do begin
write ('A[',i,']='); readln (A[i]); end;
 
write ('Vot vvedennyy vami massiv A:');
for i:=1 to n do write (A[i]:0:2,'  ');
writeln;
{***}
B[1]:=A[1];
for i:=2 to n do B[i]:=sr(i);
{***}
write ('Vot preobrazovanyi massiv A:');
for i:=1 to n do write (B[i]:0:2,'  ');
 
assign(f,'rezult.txt'); rewrite(f);
for i:=1 to n do writeln (f,B[i]:0:2);
 
close(f);
readln;
end.