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

1

Ответы и объяснения

2014-03-29T10:32:05+04:00
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.