На языке Паскаль. в а
begin
read(b_new);
//b_new переменная ввод. с кл-ры
i:=0
//i - кол-во повторений данного числа
// Dat[k]- данный массив
//n- кол-во эл-тов данного массива
for k:= 1 to n do
if Dat[k]= b_new then i:=i+1;
writeln( i);
end.