viết chương trình xác định số lần xuất hiện số nguyên K trong dãy n số nguyên nhập từ bàn phím mik cần gấp giúp mik với ạ :<
viết chương trình xác định số lần xuất hiện số nguyên K trong dãy n số nguyên nhập từ bàn phím mik cần gấp giúp mik với ạ :<
By Arianna
var a:array[1..1000] of longint;
n,k,d,i:longint;
begin
readln(n,k);d:=0;
for i:=1 to n do read(a[i]);readln;
for i:=1 to n do
if a[i]=k then inc(d);
write(d);
readln
end.
Uses crt;
Var T:array[1..100] of longint;
i, n, k, dk: integer;
Begin
Clrscr;
Write(‘Nhap n = ‘); readln(n);
For i:=1 to n do
Begin
Write(‘Nhap T[‘,i,’]: ‘);
Readln(T[i]);
End;
Write(‘Nhap k: ‘); readln(k);
dk:=0;
FOr i:=1 to n do if T[i]=k then inc(dk);
Writeln(k,’ xuat hien ‘,dk,’ lan’);
Readln
End.