Вводится последовательность из 10 произвольных чисел.Определить сколько раз в последовательности встречается число a
Вводится последовательность из 10 произвольных чисел.Определить сколько раз в последовательности встречается число a
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы