Lấy số liệu từ tệp cho trước (bài2.inp) .viết chương trình cho ra dãy số âm với giá trị tuyệt đối của Ai nhỏ hơn 100 và viết vào tệp (bài2.out) Dòng 1 lấy N là số dòng của tệp Tên vào và ra mỗ i chữ một
2 câu trả lời
uses crt;
var d:text; i,n:longint; a:array[1..100000]of longint;
begin
clrscr;
assign(d,'input.pas');reset(d);
readln(d,n);
for i:=1 to n do read(d,a[i]);
close(d);
assign(d,'output.pas');rewrite(d);
for i:=1 to n do
if(a[i]<0)and(abs(a[i])<100) then write(d,a[i]);
close(d);
readln;
end.
program bai_giai;
var f,g:text;
n:integer;
begin
Assign(f,'bai2.inp'); reset(f);
Assign(g,'bai2.out'); rewrite(g);
while not eof(f) do
begin
read(f,n);
if (n<0) and (abs(n)<=100) then write(g,n,' ');
end;
close(f); close(g);
end.
