Пусть массив находится под переменной A и состоит из 10 ячеек. А число с клавиатуры N. Переменная x будет выступать в роли счетчика.
x:=0;
for i:=1 to 10 do if a[i]=n then x:=x+1;
writeln("Число совпадает",x,"раз");
Пусть массив находится под переменной A и состоит из 10 ячеек. А число с клавиатуры N. Переменная x будет выступать в роли счетчика.
x:=0;
for i:=1 to 10 do if a[i]=n then x:=x+1;
writeln("Число совпадает",x,"раз");