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

Question

Информатика

Дуся

2 октября, 10:43

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

+3

Ответы (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.