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

Даниил5702 Даниил5702    1   04.06.2019 11:10    2

Ответы
anlevytska anlevytska  05.07.2020 12:38
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика