uses crt;
var p:array[1..40] of integer;
p1,p2,pmax,pmin,psr,i:integer;
begin
 clrscr;
 randomize;
 for i:=1 to 40 do begin
 p[i]:=random(50);
 write(p[i]:4);
end;
 p1:=1;
 p2:=1;
 pmax:=p[1];
 pmin:=p[1];
 for i:=1 to 40 do begin
 if pmax<p[i] then begin p1:=i; pmax:=p[i]; end;
 if pmin>p[i] then begin p2:=i; pmin:=p[i]; end;
 psr:=psr+p[i];
end;
 psr:=psr div 40;
 p[p1]:=psr;
 p[p2]:=psr;
 writeln;
 writeln('srednee arifm-oe=',psr);
 writeln('max=p[',p1,']=',pmax);
 writeln('min=p[',p2,']=',pmin);
 writeln;
 for i:=1 to 40 do begin
 write(p[i]:4);
end;
end.