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

Question

Информатика

Толяха

9 января, 11:16

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

+1

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