Tệp và thao tác với tệp

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyện Trần

tệp input.txt trên đĩa d chứa 1 dãy số nguyên nằm trên cùng một dòng ( mỗi số cách nhau bởi dấu cach) viết chương trình tìm số lượng các số âm có trong dãy. ghi kết quả vào tệp output.txt trên ổ đĩa d

Minh Lệ
28 tháng 5 2020 lúc 21:53

Program HOC24;

const fi='inp.txt';

fo='output.txt';

var f: text;

a: array[1..32000] of integer;

i,n,d: integer;

procedure ip;

begin

assign(f,fi);

reset(f);

n:=0;

while not(eof(f)) do

begin

n:=n+1;

read(f,a[n]);

end;

close(f);

end;

procedure out;

begin

assign(f,fo);

rewrite(f);

d:=0;

for i:=1 to n do if a[i]<0 then d:=d+1;;

write(f,d);

close(f);

end;

begin

ip;

out;

end.


Các câu hỏi tương tự
vkfabsj blahbjkwa
Xem chi tiết
Hoàng Long
Xem chi tiết
Huy Nguyễn
Xem chi tiết
Trần Quốc Luân
Xem chi tiết
Vũ văn huy
Xem chi tiết
Anh Em Song Sinh
Xem chi tiết
Nguyen Duc Anh
Xem chi tiết
Trần Thanh Trọng
Xem chi tiết
duc tran
Xem chi tiết