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

DH

Viết chương trình tạo 1 tệp gồm N số nguyên và 1 số nguyên k đếm có bao nhiêu số bằng k trong tệp trên. ghi kết quả vào tệp KQ.TXY

ML
6 tháng 6 2020 lúc 6:56

Program HOC24;

const fi='VAO.TXY';

fo='KQ.TXY';

var d,i,n,k: integer;

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

procedure ip;

begin

assign(f,fi);

reset(f);

readln(f,n,k);

for i:=1 to n do read(f,a[i]);

d:=0;

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

close(f);

end;

procedure out;

begin

assign(f,fo);

rewrite(f);

write(f,d);

close(f);

end;

begin

ip;

out;

end.

Bình luận (0)

Các câu hỏi tương tự
DT
Xem chi tiết
H24
Xem chi tiết
HL
Xem chi tiết
H24
Xem chi tiết
TT
Xem chi tiết
H24
Xem chi tiết
KN
Xem chi tiết
MD
Xem chi tiết
PH
Xem chi tiết