Здравствуйте,господа!
Организовать файл целых чисел из 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)Как нам удалить отрицательные компоненты?
Помогите пожалуйста решить эту задачу.