Да пожалуйста:
Код:
Var
n,i,Min,Imin:Integer;
f1,fx:File of Integer;
f2:Text;
Ar_M:Real;
Begin
Randomize;
Assign(f1,'xxx');
Rewrite(f1);
Assign(f2,'yyy.txt');
Rewrite(f2);
Assign(fx,'zzz');
Rewrite(fx);
Writeln(f2,'Initial array:');
for i:=1 to 10 do
begin
n:=Random(100);
Write(f1,n);
Write(f2,n:4);
end;
Writeln(f2);
Writeln(f2);
Writeln(f2,'New array:');
Close(f1);
Reset(f1);
for i:=1 to 10 do
begin
read(f1,n);
if (i<6) or (i>7) then
write(fx,n);
end;
Close(f1);
Close(fx);
Reset(fx);
Rewrite(f1);
for i:=1 to 8 do
begin
read(fx,n);
write(f1,n);
write(f2,n:4);
end;
Writeln(f2);
Writeln(f2);
Write(f2,'Minimal value: ');
Close(fx);
Erase(fx);
Close(f1);
Reset(f1);
Min:=200;
for i:=1 to 8 do
begin
Read(f1,n);
if n<Min then
begin
Min:=n;
Imin:=i;
end;
end;
Reset(f1);
Writeln(f2,Min);
Writeln(f2);
Write(f2,'Arithmetic mean: ');
if Imin>5 then
Writeln(f2,'Error!')
else
begin
Ar_M:=0;
for i:=1 to 8 do
begin
read(f1,n);
if (i>=Imin) and (i<=Imin+3) then Ar_M:=Ar_M+n/4;
end;
writeln(f2,Ar_M:0:3);
end;
Close(f2);
End.