Поиск повторяющихся элементов в массиве

Posted by obzor under Delphi

В произвольном массиве из n целых чисел (n<100) найти повторяющиеся элементы и количество повторений каждого из таких элементов.

Исходные данные
Первая строка содержит количество элементов массива n.
Затем следуют элементы массива (целые числа), каждый в отдельной строке.

Результат
Первая строка должна содержать количество повторяющихся элементов в массиве, если повторяющихся элементов нет, то вывести ноль.
Затем идут повторяющиеся элементы массива, если они есть, в каждой строке через пробел сначала сам элемент, а затем количество его повторений (элементы расположены в порядке расположения в массиве первого из повторяющихся элементов).

Aleksandr H.

type mas = array [1..100] of byte;
var a, ac, ack : mas;
N,NC : byte;
procedure readdata;
var i,j,k:byte;b:boolean;
f,fout:text;
begin
  assign(f,'inp.txt');reset(f);
  assign(fout,'inp.out');rewrite(fout);
  readln(f,n);
  b:=false;
  NC:=0;
  for i:=1 to n do
   begin
    readln(f,a[ i]);
    for j:=1 to i-1 do
      if a[ i]=a[j] then {est dublikat}
       begin
         for k:=1 to NC do {smotrim w spiske dublikatov}
          begin
            if ac[k]=a[j] then {w spiske dublikatov est}
               begin
                    inc(ack[k]);
                    b:=true;
                    break
               end
          end;
          if not(b) then {s spiske dublej nety}
            begin
                 inc(nc);
                 ac[nc]:=a[ i];
                 ack[nc]:=2;
            end
          else break
       end;
   end;
   writeln(fout,NC);
   for i:=1 to Nc do
     writeln(fout,ac[ i],' ',ack[ i]);
    close(f); close(fout);
end;
BEGIN
     readdata;
end.

тема на форуме

Похожие статьи

• Способы передачи параметров в подпрограммы в Delphi
• Описать функцию Pi(eps), вычисляющую значение числа Пи по формуле
• Вычислить методом касательных (Pascal)
• Ввести номер одного из друзей и вывести его имя (задача на записи)
• Найти сумму элементов массива, стоящих после последнего нулевого элемента
• Вычисление формулы с произведениями
• Можно ли среди чисел массива найти две разных пары чисел, суммы которых одинаковы?
• Определить, является ли массив «магическим квадратом»
• Создать таблицу умножения
• Обработка строк (Pascal)