Все отрицательные элементы целочисленного файла перенести в начало файла - Turbo Pascal

Формулировка задачи:

Все отрицательные элементы целочисленного файла перенести в начало файла (дополнительного файла не использовать). Я совсем глуп=( кто поможет + к карме


textual

Код к задаче: «Все отрицательные элементы целочисленного файла перенести в начало файла - Turbo Pascal»

program zero;
 
var i, p: longint;
    a, b: integer;
    f: file of integer;
 
begin
  assign(f, 'c:\test.dat');
  reset(f);
  p := 0;
  for i := 0 to sizeof(f) - 1 do
    begin
      seek(f, i);
      read(a);
      if a < 0
        then begin
          seek(f, p);
          read(b);
          seek(f, p);
          write(a);
          inc(p);
          seek(f, i);
          write(b)
        end
    end;
  close(f)
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

13   голосов, оценка 3.923 из 5

Источник
Похожие ответы