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.