задача на вывод часто встречающихся цифр Опции

[Kosmik]

Натуральные числа вводятся с клавиатуры до тех пор, пока не будет введено число -1. Написать программу, выводящую введенные цифры: сначала выводится наиболее часто встречающаяся цифра, в конце наименее встречающаяся цифра.

Подскажите пожалуйста как ее решить...может через массив?

[Unconnected]

Тогда так:

var mas:array[0..9] of byte;
    a:string;
    i,min,max,k,er:integer;

begin
  for i:=0 to 9 do mas[i]:=0;
  repeat
    readln(a);
    if (a<>'-1') then for i:=1 to length(a) do begin
                                                 val(a[i],k,er);
                                                 inc(mas[k]);
                                               end;
  until (a='-1');
  min:=mas[0];max:=mas[0];
  for i:=1 to 9 do
    begin
      if (min>mas[i]) then min:=mas[i];
      if (max<mas[i]) then max:=mas[i];
    end;
  for i:=0 to 9 do
  begin
    if (min=mas[i]) then writeln('Reje vseh vstrechaetsya chislo ',i);
    if (max=mas[i]) then writeln('Chaje vseh vstrechaetsya chislo ',i);
  end;
  readln;
end.

[Lapp]

Тогда так:

Unconnected, мне кажется нужно выводить ВСЕ встретившиеся цифры, а не только самые (я так понял).
Я, может, сделал бы так..

var
  s: string;
  i: integer;
  Stat: array[' '..'9']of integer;
  c,max: char;

begin
  FillChar(Stat,SizeOf(Stat),#0);
  repeat
    ReadLn(s);
    for i:=1 to Length(s) do Inc(Stat[s[i]]);
  until s='-1';
  Dec(Stat['1']);
  repeat
    max:=' ';
    for c:='0' to '9' do if Stat[c]>Stat[max] then max:=c;
    Stat[max]:=0;
    WriteLn(max)
  until max=' ';
  ReadLn
end.

Тут я постарался избежать сортировки массива в чистом виде (и это избавило прогу от одного лишнего цикла и дополнительного массива). Кроме прочего, использование индекса массива и цикла типа char, надеюсь, полезно для обучения. И вообще, тут несколько хитростей, некоторые из них немного спорные.. ))

Здесь нету защиты от неправильного формата ввода.. Зато можно вводить по нескольку чисел на одной строке)). А вообще, конечно, такие вещи следует завершать по вводу пустой строки.