[Electronic_Arts]

Есть строка

1231247856123412312847163512341

как посчитать сколько там 1 - сколько 2 - сколько 3 и т.д до 9-ти?

[Bargest]

Код:

var a:array[0..9]of integer;
...
for i:=1 to length(s) do
 inc(a[strtoint(s[i])]);

в каждой ячейке массива будет лежать кол-во соответствующих цифр. В a[0] - нулей, в a[1] - единиц и т.д.

[Electronic_Arts]

это же не будет работать...

[Bargest]

Работает:

Код:

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a:array[0..9]of integer;
    i:integer;
    s:AnsiString;

begin
s:='0123450670';
for i:=1 to length(s) do
 inc(a[strtoint(s[i])]);
writeln(a[0]);
readln;
end.

Прошу прощения, там не I:array... а A:array

[Electronic_Arts]

Спасибо огромное - реально работает