Question

Написать программу которая в одномерном массиве заданным вводом данных с клавиатуры находит количество повторений заданного числа в массиве (паскаль)

Answer 1

Const n = 10;//размерность массива

Var mas: array[1..n] Of integer;

jjj, h, etl: integer;

Begin

readln(etl);// число , кол-во которого будем искать

writeln;

For jjj:=1 To n Do

Begin

read(mas[jjj]);

If mas[jjj]= etl Then h := h+1;

End;

writeln;

write(h);

End.