Giúp mình vs ạ Cho tập tin Dulieu.txt gồm n dòng, mỗi dòng chứa một số nguyên Viết chương trình lọc các số nguyên không âm và ghi vào tập tin Ketqua.txt trên nhiều dòng, mỗi dòng là một số nguyên không âm.
1 câu trả lời
var f1,f2:text;
n,i,so:integer;
begin
assign(f1,'Dulieu.txt');reset(f1);
assign(f2,'Ketqua.txt');rewrite(f2);
readln(n);
for i:=1 to n do begin
readln(so);
if so>-1 then writeln(so);
end;
end.
