Вводится последовательность из 10 произвольных чисел. Определить сколько раз в последовательности встречается число a

Question

Информатика

Дуся

8 декабря, 05:38

Вводится последовательность из 10 произвольных чисел. Определить сколько раз в последовательности встречается число a

+2

Ответы (1)

Знаете ответ?

Терентий · Answer 1

Var m:array[1 ... 10] of integer;

a, i, k:integer;

begin

k:=0;

for i:=1 to 10 do

read (m[i]) ;

readln (a) ;

for i:=1 to 10 do

if m[i]=a then k+=1;

writeln (k) ;

end.