Bài 15: 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 dòng 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

Nguyễn Lê Phước Thịnh
28 tháng 5 2020 lúc 18:54

const fi='input.txt';

fo='output.txt';

var f1,f2:text;

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

n,i,dem:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

n:=0;

while not eoln(f1) do

begin

inc(n);

read(f1,a[n]);

end;

dem:=0;

for i:=1 to n do

if a[i]<0 then inc(dem);

writeln(f2,dem);

close(f1);

close(f2);

end.


Các câu hỏi tương tự
Lưu Hương Ly
Xem chi tiết
Nguyễn Văn Thường
Xem chi tiết
hậu huỳnh
Xem chi tiết
33. PHAN THỊ HỒNG THẮM 1...
Xem chi tiết
Dania sunna
Xem chi tiết
Hoài Ân 02 Lê Huỳnh
Xem chi tiết
An Đinh
Xem chi tiết
Felix MC-Gamer
Xem chi tiết
Đặng công mạnh
Xem chi tiết