Задуманная цифра. Опции

[piplkall]

Посчитать, сколько элементов заданного массива начинается с задуманной цифры М.

[volvo]

с задуманной цифры М.

Если "задуманная" цифра вводится пользователем, то вот так:

Код

const
 n = 10;
 a: array[1 .. n] of integer =
   (45, 23, 87, 83, 80, 34, 65, 19, 92, 21);

var
 m: byte;
 i, count, x: integer;
begin
 write('m = '); readln(m);

 count := 0;
 for i := 1 to n do
   begin
     x := a[i];
     while x >= 10 do
       x := x div 10;

     if x = m then
       inc(count)
   end;
 writeln('count = ', count)

end.

Это для уже заданного массива... Можно его вводить самому или генерировать автоматически...