Turbo Pascal. Даны целочисленные файлы f и g одинаковой длины. Оставить в f только те компоненты, значения которых больше...

[ALena77]

Даны целочисленные файлы f и g одинаковой длины. Оставить в f только те компоненты, значения которых больше компонентов файла g.

[Arigato]

Задание некорректное, можно понять как оставить те компоненты, что больше всех компонентов файла g. Должно быть явно указано, что больше соответствующих компонентов файла g.
Но это лирика. От нас вы чего хотите? Если готового решения, то бегом во Фриланс.

[Serge_Bliznykov]

Согласен с уточнением Arigato.

ALena77, в этом задании единственная возможная сложность - это удаление компонентов файла. Но, раз в задании нет ограничения, я бы поступил так - открыл ТРЕТИЙ файл на запись, в него записал только те компоненты файла f, которые должны остаться (которые больше соответствующих компонент файла g). после окончания удалил файл f и переименовал временный файл в то имя, которое было у файла f.
Это очень просто.

[Stilet]

program Project1;

var f,g:file of integer;
  s,i,c:integer;
  a,p:^integer;
begin
  {Открываем файлы}
  Assign(f,'f');Rewrite(f);
  Assign(g,'g');Rewrite(g);
  {Наполняем данным}
  for i:=1 to 10 do write(f,Random(100));
  for i:=1 to 10 do write(g,Random(15));
  {Открываем для анализа}
  Reset(f); Reset(g);
  s:=0;
  {Считываем g, выясняем сумму}
  while not eof(g) do begin
    read(g,i); Write(i:5); s:=s+i;
	end;  writeln;
  {Считываем f выясняем кол-во, которое нужно оставить}
  c:=0;
  while not eof(f) do begin
    read(f,i); Write(i:5);
    if i>s then begin
      {Выводим на экран рядом с теми, что останутся звездочку}
      write('*'); inc(c);
		end;
	end;

  {Переоткрываем файл}
  Reset(f);
  {Еще раз считываем, но уже только те, что будем оставлять в динмассив}
  GetMem(a,c*sizeof(integer)); p:=a;
  while not eof(f) do begin
    read(f,i);
    if i>s then begin
      p^:=i; inc(p);
		end;
	end;
  {И перезаписываем файл f теми, что оставили}
  Rewrite(f); p:=a;
  for i:=1 to c do write(f,p^);
  Freemem(a);


  close(f); close(g);
  readln;
end.

Вот так вот я предлагаю решить эту задачу...

[ALena77]

Спасибо огромное! Очень выручили!

[ALena77]

а Вы уверены,что она работает? Я сейчас проверила, и Random(100) и Random(15) выдаёт мне,как ошибочную переменную.

[Serge_Bliznykov]

просто добавьте переменную, её и пишите в файл.
например, вместо

 for i:=1 to 10 do write(f,Random(100));
  for i:=1 to 10 do write(g,Random(15));

написать

 for i:=1 to 10 do begin c:=Random(100); write(f,c) end;
  for i:=1 to 10 do begin c:=Random(15); write(g,c) end

[ALena77]

Поняла,спасибо за объяснение!