Задача об одномерном массиве Опции

[RIDDICK]

Вводится произвольная последовательность чисел a1,a2,...,am. Найти частоту повторения каждого числа. Результаты расчетов поместить в одномерный массив b, где каждая пара элементов (Bi,Bi+1) соответственно равна: Bi - различные элементы последовательности , а Bi+1 - число их повторений. Количество пар (Bi, Bi+1) соответствует числу различных чисел, входящих в последовательность a1,a2,...,am.

Нужно на Pascal написать ...

[volvo]

RIDDICK
Задача решается так:

Код

const
 m = 7;

var
 b: array[1 .. 2 * m] Of Integer;
 a, i, j, bCount: integer;
 found: boolean;

begin
 for i := 1 to m do
   begin
     write('a #', i, ' = '); readln(a);
     j := 1; found := false;
     while (j <= bCount) and (not found) do
       begin
         if b[j] = a then
           begin
             inc(b[succ(j)]);
             found := true
           end
         else inc(j, 2)
       end;

     if not found then
       begin
         b[succ(bCount)] := a;
         inc(bCount, 2);
         b[bCount] := 1;
       end;
   end;

 writeln('result:');
 for i := 1 to bCount do
   begin
     write(b[i]:4);
     if not odd(i)
       then writeln
   end;
end.