program hhh;
Uses crt;
Var x:array [1..100] of real;
sr,buf,min,s:real;
n,i,k,j:integer;
begin
clrscr;
Writeln (' Vvedite kol - vo elementov ');
Readln (n);
for i:=1 to n do begin
write (' Vvedite ',i, ' element ');
Readln (x[i]);
end;
Writeln (' polycheny chisla ');
for i:=1 to n do write (x[i]:4:2,' ');
writeln;
min:=x[1];
for i:=1 to n do
if x[i]<=min then begin
min:=x[i];
j:=i;
end;
writeln (' minim element = ',min:4:2);
writeln;
s:=0;
k:=0;
for i:=1 to n do begin
s:=s+x[i];
k:=k+1;
end;
sr:=s/k;
writeln (' Srednee.Arifm = ',sr:4:2);
buf:=sr;
x[j]:=buf;
writeln (' OtBeT ');
for i:=1 to n do
write (x[i]:4:2,' ');
readln
end.
Вариант 2
program mass;
uses crt;
type Ar=array[1..100] of real;
var X:Ar; kol,i,k,num:byte; nd,kd:integer; min,sum,sr:real;
begin
clrscr;
writeln(' Vvedite kol-vo elementov:');
readln(kol);
writeln(' Vvedite diapazon generacii:');
readln(nd,kd);
for i:=1 to kol do
x[i]:=nd+random(kd-nd);
writeln(' Poluchen massiv:');
for i:=1 to kol do
write(x[i]:0:2,' ');
readln;
sum:=0;min:=0;sr:=0;k:=0;
for i:=1 to kol do
begin
if x[i]<0 then
begin
sum:=sum+x[i];
k:=k+1;
end;
if x[i]<min then
begin
min:=x[i];
num:=i;
end;
end;
sr:=sum/k;
x[num]:=sr;
writeln(' sr.ar.=',sr:0:2);
writeln(' Min=',min:0:2);
writeln(' Novii mass:');
writeln;
for i:=1 to kol do
write(x[i]:0:2,' ');
readln;
end.