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

giả sử có 1 tệp chứa các số nguyên tên là songuyen.txt viết chương trình đưa các số nguyên dương sang tệp soduong.out

Trần Gia Linh
5 tháng 4 2021 lúc 9:01

ai giup e voi dc k ah:( đang thi ạ

 

Trần Gia Linh
5 tháng 4 2021 lúc 9:02

alo mng ơi=(((

 

Nguyễn Lê Phước Thịnh
5 tháng 4 2021 lúc 13:10

const fi='songuyen.txt'

fo='soduong.out'

var f1,f2:text;

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

i,n:integer;

begin

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

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

n:=0;

while not eof(f1) do 

  begin

inc(n);

read(f1,a[n]);

end;

for i:=1 to n do 

  if a[i]>0 then write(f2,a[i]:4);

close(f1);

close(f2);

end.


Các câu hỏi tương tự
Đặng Công
Xem chi tiết
nanako
Xem chi tiết
Nguyen
Xem chi tiết
Phương Hoài
Xem chi tiết
Thanh Vjp pro
Xem chi tiết
Giang Nguyễn
Xem chi tiết
Phạm minh phương
Xem chi tiết
Phạm Tiến Vượng
Xem chi tiết
Ngọc Hồng
Xem chi tiết