[tane]

Здравствуйте,господа!

Организовать файл целых чисел из N компонент. Удалить из файла все отрицательные компоненты. Вывести содержимое файла до и после обработки.

Вот запись у файл чисел,но вместо чисел - иероглифы.
1?

Код:

var f: file of integer; i, j, k, m: integer;
begin

  assignfile(f,'c:\file.txt');
  rewrite(f);
  for i:=1 to 15 do begin
    k := random(5)-2;
    write(f, k)
  end;
  CloseFile(f);

2)Как нам удалить отрицательные компоненты?
Помогите пожалуйста решить эту задачу.

[Bargest]

но вместо чисел - иероглифы.

А чего ты хотел? Заявил бинарный файл - вот тебе и бинарный файл.
Чтобы удалить отрицательные, проще всего не записывать их, если они меньше нуля. То есть поставить условие k >= 0 и записывать, только когда оно выполняется.

[poli-smen]

Сообщение от tane

Вот запись у файл чисел,но вместо чисел - иероглифы.
1?

Код:

var f: file of integer; i, j, k, m: integer;

Ну так потому что ты объявил файл типизированный (т.е. бинарный).
Текстовые файлы объявляются так:

Код:

var f: TextFile;

Сообщение от tane

2)Как нам удалить отрицательные компоненты?
Помогите пожалуйста решить эту задачу.

С помощью двух файлов: первый с исходными числами, а второй пустой. Читаешь в цикле все числа из первого файла и если число отрицательное - пропускаешь его, иначе записываешь его во второй файл.