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

Question

Информатика

Марксина

4 января, 17:23

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

+3

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