С клавиатуры вводятся последовательность из n целых чисел подсчитать сколько раз встречается в последовательности число q

Question

Информатика

Викта

7 апреля, 02:26

С клавиатуры вводятся последовательность из n целых чисел подсчитать сколько раз встречается в последовательности число q

+4

Ответы (1)

Знаете ответ на вопрос?

Димитрий · Answer 1

program pr; var n, i, q, a, count:integer; begin write ('n=') ; readln (n) ; write ('q=') ; readln (q) ; for i:=1 to n do begin readln (a) ; if a=q then count:=count+1; end; writeln ('Встречается раз: ', count) ; end.