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
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
lúc chạy thử thì bạn nên sửa code thành for i:=1 to số nào be bé thôi để khi nhập dữ liệu vô file dulieu.data nó đỡ bị mệt =))))
var f,g: text;
a: array[1..100] of byte;
k,cs,i:byte;
begin
assign(f,’Dulieu.data’); reset(f);
assign(g,’Ketqua.txt’); rewrite(g);
for i:=1 to 100 do
read(f,a[i]);
readln;
read(f,k);
for i:=1 to 100 do
if a[i]=k then cs:=cs+1;
write(g,cs);
close(f);
close(g);
end.
uses crt;
var a : array[1..100] of integer;
i,k,dem : integer;
begin clrscr ;
assign(input,’dulieu.data’);
assign(output,’ketqua.txt’);
reset(input); rewrite(output);
for i:=1 to 100 do read(input,a[i]);
readln(input,K);
for i:=1 to 100 do if a[i]=K then dem:=dem+1;
writeln(output,dem);
close(input);
close(output);
readln
end.