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