** языке Паскаль. в а​

Question

На языке Паскаль. в а​

---

Answer 1

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.