Developing.ru

Код: Выделить всё

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.