Поиск

[Vital_k]

Здрасьте. У меня тут последняя проблемка, одну из таких мне здесь помогли разрешить, надеюсь и эту помогут. Так вот дан массив линейный нужно подсчитать количество одинаковых элементов. Сначала по каждому элементу, если есть одинаковые, а затем вывести общее количество этих элементов.
Заранее лабогадарю

[Stilet]

Ну сортируй массив, потом подсчитаешь по повторам.

[Vital_k]

Если можно код, плиз.

[Vital_k]

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

[puporev]

Если еще не поздно, то посмотри это решение, не очень удачное, но другого нет.

program Ravnye;
uses Crt;
var
   a:array[1..50] of integer;
   n,i,j,st,x,k:integer;
begin
ClrScr;
write('n=');readln(n);
randomize;
  for i:=1 to n do
    begin
      a[i]:=random(10);
      write(a[i],' ');
    end;
  readln;
  //сортируем по возрастанию
  for i:=1 to n-1 do
  for j:=1 to n-1 do
  if a[j]>a[j+1] then
     begin
       x:=a[j];a[j]:=a[j+1];a[j+1]:=x;
     end;
  for i:=1 to n do  //выводим для проверки на экран
      write(a[i],' ');
      readln;
  st:=-1; //начало интервала одинаковых чисел
  k:=0;  //обнуляем общее количество одинаковых
  for i:=2 to n+1 do
    begin
      if a[i]=a[i-1] then
       begin
         if st<0 then st:=i-1;  //сдвигаем интервал влево на количество одинаковых
       end
      else
         if st>0 then
          begin
            writeln('el ',a[i-1],' vstr ',i-st,' raz');//выводим сколько одинаковых в интервале
            k:=k+i-st; {obshee kol}  //считаем сколько всего одинаковых
            st:=-1;  //начинаем новый интервал
          end;
    end;
  writeln('k=',k);
  readln
end.