Написать алгоритм решения задачи.

[dmitriy20104]

Задан массив целых чисел А1,А2,...,Аm. Найти кол-во неповторяющихся чисел в этом массиве.
Срочно надо

[VIK_aka_TOR]

перебираежь весь массив от начала до конца по элементу... и на каждом шаге перебора проверяешь есть ли кроме этого же элемента (определяешь по индексу) ещё элементы с таким же значением... собственно так вот... нужен код?.. пиши в личку или аську договоримся... быстро и недорого...

[Serge_Bliznykov]

const m = 20;
var 
  A : array[1..m] of integer;
  i,j, Count : integer;
  isHasDouble : boolean; 
begin
  {ввод массива A}
  for i:=1 to m do Read(A[i]);

  Count :=0;
  for i:=1 to m do begin
    isHasDouble := false;
    for j:=1 to m do
       if (i<>j) and (A[i]=A[j]) then begin
          isHasDouble := true;
          break
       end;
    if Not isHasDouble then Inc(Count);
  end;

  {вывод результата}
  WriteLn('Неповторяющихся чисел в массиве: ', Count);
  Readln
end.

p.s. писал прямо в браузере, не проверял. возможны опечатки.