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

Dương Thùy CHang

cho tệp so.txt chứa số nguyên, mỗi số cách nhau một dấu cách và không kết thúc bởi kí tự xuống dòng.

a, hãy cho biết trong tteepj có bao nhiêu số nguyên âm

b, kết quả cho vào tệp so am.txt

mọi người ơi giúp mình với mai thi học kì rồi

Nguyễn Lê Phước Thịnh
29 tháng 10 2019 lúc 12:46

uses crt;
const fi='so.txt';
fo='am.txt';
var f1,f2:text;
a:array[1..100]of integer;
dem,i,dem1:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
dem:=0;
while not eoln(f1) do
begin
dem:=dem+1;
read(f1,a[dem]);
end;
{--------------------------xu-ly----------------------}
dem1:=0;
for i:=1 to dem do
if a[i]<0 then inc(dem1);
writeln(f2,dem1);
close(f1);
close(f2);
readln;
end.

Bình luận (0)
 Khách vãng lai đã xóa

Các câu hỏi tương tự
An Hạ
Xem chi tiết
Vũ văn huy
Xem chi tiết
Kiên Ngọc
Xem chi tiết
Nguyen Duc Anh
Xem chi tiết
duc tran
Xem chi tiết
Hoàng Long
Xem chi tiết
Huy Nguyễn
Xem chi tiết
Ngọc Ánh
Xem chi tiết
Phạm Thị Thu Hằng
Xem chi tiết