Question

Cho 1 tệp văn bản Dulieu.data gồm 2 dòng. Dòng 1 gồm 100 số nguyên. Dòng 2 chứa 1 số nguyên K. Viết chương trình đọc dữ liệu từ tệp Dulieu.data rồi đếm các số trong dãy bằng K. Ghi kết quả đếm vào tệp Ketqua.txt

Answer 1

Program HOC24;

const fi='Dulieu.data';

fo='Ketqua.data';

var i,n,k,d: integer;

f: text;

procedure ip;

begin

assign(f,fi);

reset(f);

n:=0;

while not(eof(f)) do

begin

n:=n+1;

read(f,a[n]);

end;

readln(f);

read(f,k);

close(f);

end;

procedure out;

begin

assign(f,fo);

rewrite(f);

d:=0;

for i:=1 to n do

if a[i]=k then d:=d+1;

write(f,d);

close(f);

end;

begin

ip;

out;

end.