нужно удалить эти числа,но я к сожалению не знаю как.
я их просто умножила на минус один.
Код: Выделить всё
var
f: file of integer;
i, n, m, q, s, k, j: integer;
x, y: integer;
w: string;
begin
write('Введите кол-во элементов: ');readln(n);
Assign(f, 'in.dat');Rewrite(f);
for i := 1 to n do
begin
write('Введите элемент: ');
readln(m);
write(f, m);
end;
Close(f);
writeln('Файл создан');
write('Введите элемент x: ');
readln(x);
write('Введите элемент y: ');
readln(y);
readln;
//=========== вторая часть.===================
begin
Assign(f, 'in.dat');Reset(f);
i := 0; s := 0;
writeln('Исходный файл');
while not Eof(f) do
begin
read(f, m);
write(m, ' ');
end;
writeln;
Reset(f);
while not Eof(f) do
begin
read(f, m);
if (m >= x) and (m <= y) then
begin
Seek(f, i);
write(f, m * (-1)); s := s + m; inc(k);
end;
inc(i);
end;
Reset(f);
writeln('Полученный файл');
while not Eof(f) do
begin
read(f, m);
write(m, ' ');
end;
writeln('сумма', s);writeln('количество', k);
readln;
end;
end.
