Одномерные массивы - Pascal

[W_P]

Дан одномерный массив(вводитса с клавиатуры). Найти количество пар совпадающих элементов в нем. Помогите народ!Спасибо заранее! Я сделал но у меня всегда неправильно считает......

[puporev]

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

[W_P]

Program a14;
uses crt;
var
a:array[1..100] of integer;
i,n,j,k:integer;s:real;
begin
writeln('VveDiTe RAZMerNosT ==>');
readln(n);
           for i:=1 to n do
           begin
                writeln('Vvedite ',i,' elemeNt MAsSiVA==>');
                readln(a[i]);
           end;
writeln('IsHoDniI mAsSiv ==>');
           for i:=1 to n do
           writeln('a[',i,']=',a[i]);
k:=0;j:=2;
           for i:=1 to n do begin
               if a[i]=a[j] then
               begin
               k:=k+1;
               writeln(a[j],a[j]);
               end;
               j:=j+1;
               end;
               if k mod 2 <> 0 then k:=k-1;
               s:=k;s:=s/2;
writeln('KoLiChEScTVo PAr ODInAkOvIh ElEmEnTOv ==>',s:2:2);
readkey;
end.

На будущее: Для программ есть специальный тег [code] просьба пользоваться им если хочеш запостить какой либо код

[Stilet]

Я чесслово скорее запутаюсь в твоих компиляциях, посему предложу свой вариант:

var a:array[1..100] of integer;k,i:integer;
begin
{Здесь мы вводим в массив значения, но 100 значений}
 for i:=1 to 100 do begin a[i]:=random(5);end;
{Ну и находим пары}
 k:=0;
 for i:=1 to 99 do if a[i]=a[i+1] then inc(k);
 writeln(k);
end;

[W_P]

Это неправильно.....я так тоже ставил и не только так. Нужно посчитать не количество одинаковых элементов, которые встречаютса в массиве, а пары. т.е типо если идут элементы 1 1 1 2 3 5 8 5 5 то здесь 2 пары 11 и 55

[puporev]

Держи нормальный код, все работает.
Суть: вводим массив, сортируем, чтобы одинаковые были рядом, затем проверяем, если a[i]=a[i+], то кол=+1, i:=i+2. Перескакиваем через проверенный элемент. Если a[i]<>a[i+], то i:=i+1.

uses crt;
var mas:array[1..20]of integer;
    n,i,j,x,kol:integer;//n-размер массива, i,j-счетчики,х-буфер,kol-кол.пар эл-тов
begin
clrscr;
write('n=');readln(n);
writeln('Vvedite elem massiva:');
i:=1;
while i<=n do
    begin
      write('mas[',i,']=');//ввод элементов массива
      readln(mas[i]);
      i:=i+1;
    end;
for i:=1 to n-1 do       //сортировка
for j:=1 to n-1 do
if mas[j]>mas[j+1] then
   begin
     x:=mas[j];mas[j]:=mas[j+1];mas[j+1]:=x;
   end;
i:=1;kol:=0;
while i<=n do
if mas[i]=mas[i+1] then   //подсчет пар (если 1,1,1-то одна пара)
         begin
          kol:=kol+1;
          i:=i+2;
         end
      else
         i:=i+1;
writeln('kol=',kol);
readln
end.

[Stilet]

т.е типо если идут элементы 1 1 1 2 3 5 8 5 5 то здесь 2 пары 11 и 55

Так значит нужно всего то удалять посчитанное:

  program Project2;
 var a:array[1..20] of integer;k,i:integer;
begin
{Здесь мы вводим в массив значения, но 100 значений}
 for i:=1 to 20 do begin a[i]:=random(2); writeln (a[i]);end;
{Ну и находим пары}
 k:=0;i:=1;
 while i<19 do begin
  if a[i]=a[i+1] then begin inc(k);inc(i); end; inc(i);
 end;
 writeln('Pary = ',k);
 readln;
end.

Мог бы и догадаться...

сортируем

Опа. Не понял, так как же задача то звучит: найти рядомстоящие пары или все возможные?

[Карась]

Опа. Не понял, так как же задача то звучит: найти рядомстоящие пары или все возможные?

Нужно в одномерном массиве найти пары совпадающих цифер.

Сортировка в коде puporev'а нужна для удобства подсчёта таких пар...

[W_P]

Спасибо парни за помощь!!