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.
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.
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.