ayPinki

а помогите сделать так- без подключения дополнительного файла.
ответ в личку пожалст.

program ABC;
var
a,b,i,maxin,minin,max,min,sum,right,left :integer;
f,f1:file of integer;
begin
assign(f,'f.dat');
write('введите первую компоненту файла f (признак конца ввода: "555") ');
//ввод файла
rewrite(f);
readLn(b);
i:=1; //номер компоненты файла
while b<>555 do
begin
write(f,b);
inc(i);
write('введите ',i:2,'-ую компоненту файла f ');
readLn(b);
end;
reset(f); //вывод файла до изменения
writeLn('файл f до изменения:');
while not EOF(f) do
begin
read(f,b);
write(b:5);
end;
writeLn;
max:=-32000;
min:=32000;
reset(f); // поиск максимума и минимума
while not EOF(f) do
begin
read(f,b);
if b>max then
begin
max:=b;
maxin:=filePos(f);
end;
if b<min then
begin
min:=b;
minin:=filePos(f);
end;
end;
writeln('minin= ',minin,' maxin= ',maxin);
sum:=0;
if maxin>minin then //очередь
begin
left:=minin;
right:=maxin;
end
else
begin
left:=maxin;
right:=minin;
end;

for i:=left+1 to right-1 do
begin
seek(f,i-1);
read(f,b);
sum:=sum+b;
end;

writeln('Sum= ',sum:5);

//здесь нужно подкорректировать
reset(f);
i:=0;
while not eof (f) do
begin
inc(i);
read(f,b);
seek(f, left+i or right-i);

write(f,sum);
end;

reset(f);
close(f);

// ^^
writeLn('файл f после изменения:');

reset(f);
while not EOF(f) do
begin
read(f,b);
write(b:5);
end;
close (f);
end.

Vladimir_S

По-моему, ничего из этой затеи не выйдет: насколько мне известно, файл может быть открыт либо на чтение, либо на запись, но не на то и другое сразу. Впрочем, может быть, какие-нибудь трансляторы этому и научились - не знаю.