[Матрицы.Паскаль]Сравнение каждого с каждым.

[BackSlash]

Доброй ночи.
--------------------------------------------------------------------------
Условия задачи:
3. Дан целочисленный массив А, содержащий n элементов (n<=20). Найти количество различных членов последовательности.
--------------------------------------------------------------------------
Никак не могу сообразить как увеличить переменную temp на [+1значение],
Когда цикл сравнения первого элемента завершился на последнем элементе массива.
То есть есть массив [1..10]
Вот беру первое число, приравниваю его temp'у и гоняю сравнение до конца массива, то бишь до 10го элемента.
А как его увеличить,чтобы после прогона до последнего элемента , начинал сравниваться уже второй элемент ???

uses crt;
const n=10;
type mass=array[1..n] of integer;
var a:mass;
begin
clrscr;
randomize;
temp:=a[1];
for i:=1 to n do a[i]:=random(100);
for i:=1 to n do write(a[i],' ');
for i:=1 to n do
    begin
    for i:=1 to n do
        begin
        if a[i]=temp then
           begin
           num:=i; rep:=a[i];
           end;
        end;

Подскажите пожалуйста.
Только как можно понятнее, чтобы мне по 100 раз не переспрашивать.
Спасибо.

[dekameron]

for i:=1 у вас встречается 2 раз во вложеном цикле
попробуйте во вложеном цикле использовать другой идентификатор)

uses crt;
const n = 10;
type mass = array[1..n] of integer;
var a: mass;
begin
  clrscr;
  randomize;
  for i := 1 to n do a[i] := random(100);
  for i := 1 to n do write(a[i], ' ');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      if a[j] = a[i] then
      begin
        num := i; rep := a[i];
      end;
    end;

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[BackSlash]

Он там был один раз, это я пробовал что-то изобрести, не вышло а убрать забыл.

Идентификатором, тут дело не ограничится) Я просто не пойму как так сделать чтоб после 10 итераций менялась переменная а не после каждой.

Ок, сейчас попробую, мб дойдет до меня)Спасибо.

Может Вы что-то пропустили?
Что-то я не пойму зачем так делать, ибо a[j]=a[i] (первый с первым, второй со вторым, третий с третим итд.)

А мне нужно, чтобы 1 элемент сравнился со всеми, кроме него, потом второй со всеми, кроме него, потом третий со всеми, кроме него.

Поправьте меня, если я ошибаюсь.

[vovk]

for i:=1 to n -1 do
for j:=i+1 to n do 
if a[j]=a[i] then
begin
num:=i; rep:=a[i];
end;

вроде так

PS сравниваем 1 элемент со всеми номер которых больше чем 1, потом сравниваем второй элемент со всеми номер которых больше чем 2 (с первым уже сравнивали в прошлый проход) и тд.

Ой прошу прощения, нужно ведь. Найти количество различных членов последовательности. Тогда так

num:=0;
for i:=1 to n do
begin
x:=1;
for j:=1 to i-1 do
if a[j]=a[i] then
begin
inc(x);
end;
if x<2 then
inc(num);
end;

[BackSlash]

Спасибо.
Что вы обозначили за переменную x и за переменную num?
И объясните пожалуйста как работает код.
Я в выводе вывожу) x и num.
У меня идея была такая за х допустим взять количество повторяющихся элементов, а за num количество различных членов последовательности.

Следовательно для массива
[1,2,3,4,1,2,0,5,4,9]
x должен быть =3 а num=4

А на деле что-то не получается.

И еще вот num:=0 и особенно x:=1;
в правильное место Вы поставили?

[vovk]

X это просто счётчик он нужен только дя проверки совпадений в цикле, в num сохраняется количество различных членов последовательности.
на счёт кода всё просто,
циклом проходим от 1 до последнего члена массива,
во внутреннем цикле сравниваем проверяемый элемент с элементами которые уже посчитали,
если есть совпадения то увеличиваем X после прохождения внутреннего цикла проверяем переменную X и если она меньше чем 2 (то есть не было совпадения)
увеличиваем количество различных членов последовательности.
както так.
Внутренний цикл (где проходит проверка ) можно немного переделать, чтобы проверка шла только до 1 совпадения, то есть если уже есть совпадения то дальше смысла проверять нет, и значит можно просто закончить проверку.

ЗЫ Если нужно посчитать количество повторяющихся, то можно просто от общего количества членов отнять количество различных членов последовательности))

[BackSlash]

Понятно, Огромное спасибо!