Цитата(piplkall @ 5.02.05 1:14)
с задуманной цифры М.
Если "задуманная" цифра вводится пользователем, то вот так:
Код
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.
Это для уже заданного массива... Можно его вводить самому или генерировать автоматически...