@Майоров Дмитрий

Задан числовой файл F. Найти сумму компонент, стоящих между минимальной и максимальной. Записать в файл H сначала минимум, затем максимум, затем сумму. Файл H распечатать.

__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь

0

@Sergio Leone

какого типа файл F (file of <ЧТО>) ?
какого типа файл H? (по условию задачи непонятно, то ли H должен быть того же типа, что и исходный файл, то ли ожидается обычный текстовый файл)

0

@Майоров Дмитрий

если я правильно понял, то надо сделать так: как в задаче которую прикреплю ниже, только сумму написать не вместо всех стоящих между мин и мах, а просто - мин, мах и сумму.

uses
crt;

var
f: file of integer;
n, a, i, mn, mx, imn, imx, s, x: integer;

begin
randomize;
assign(f, 'filef');
rewrite(f);
repeat
write('Сколько чисел записать в файл F n>1 n=');
read(n);
until n > 1;
for i := 1 to n do
begin
a := random(50) + 1;
write(f, a);
end;
writeln('Содержание исходного файла:');
seek(f, 0);
read(f, mn);
write(mn:4);
mx := mn;
imn := 0;
imx := 0;
for i := 1 to filesize(f) - 1 do
begin
read(f, a);
write(a:4);
if a < mn then
begin
mn := a;
imn := i
end
else if a > mx then
begin
mx := a;
imx := i
end
end;
writeln;
writeln('Минимальный=', mn, ' индекс=', imn, ' максимальный=', mx, ' индекс=', imx);
if abs(imn - imx) = 1 then
begin
writeln('Между минимальным и максимальным нет элеметов');
write('Сумма=0, замены нет');
readln;
exit
end;
if imx < imn then
begin
x := imx;
imx := imn;
imn := x
end;
s := 0;
for i := imn + 1 to imx - 1 do
begin
seek(f, i);
read(f, a);
s := s + a
end;
writeln('Сумма между минимальным и максимальным=', s);
writeln('Файл после замены элеиентов');
seek(f, 0);
for i := 0 to filesize(f) - 1 do
begin
seek(f, i);
if (i <= imn) or (i >= imx) then
begin
read(f, a);
write(a:4)
end
else
begin
write(f, s);
seek(f, i);
read(f, a);
write(a:4);
end
end;
close(f);
end.

Добавлено через 47 секунд
эти три значения я думаю и будут файлом Н.

0