Массивы

[Arsenx777]

Дан одномерный массив mass из 50, возможно различных, элементов. Подсчитать количество элементов k, которые встречаются в массиве однократно.

[Hacker19_90]

ии в чём у вас проблема?

[Arsenx777]

Не могу понять задачу, тоесть дан массив а должен найти сколько там элементов повторяется?

Как решать эту задачу?

[Hacker19_90]

ну что то типа

count := 0;
for i := 1 to n do
begin
  isfound := false;
  for j := 1 to n do
    if i <> j then
      if a[i] = a[j] then
      begin
        isfound := true;
        break;
      end;
  if not(isfound) then Inc(count);
end;
Writeln (count);

[denisbrain]

{
Дан одномерный массив mass из 50, возможно различных, элементов.
Подсчитать количество элементов k, которые встречаются в массиве однократно.


}
uses crt;
const MaxNcount=1000; // размер массива
type
  TarrayInt=array [1..MaxNcount] of integer;


var a,b:TArrayInt; // массив элементов
    Acount:integer; // размер массива А
    Bcount:integer;  // размер массива B

//1) заполнение массива случайными числами из заданного интервала;

procedure CreateArray(var a:TArrayInt;Ncount:integer);
var i:integer;
begin
randomize;// инициализация
  for i:=1 to ncount do  a[i]:=random(40);
end;


{ Процедура отображения массива элементов
// А - массив элементов
 Ncount- кол-во элементов в массиве А}
{ ==============================================================}
Function ShowArray(const a:TArrayInt;Ncount:integer):string;
var s:string; { переменная  содержащая выходную строку}
    i:integer; { Параметр}
begin
s:=''; { Устанавливаем начальное значение переменной }
 for i:=1 to ncount-1 do {Объявляем цикл по всем элементам }
 if s='' then s:=s+inttostr(a[i]) {Если в переменной S ничего нет то присваиваем ее значение первого элемента только в строковом виде }
 else
  s:=s+','+inttostr(a[i]); {если это второй и более элемент перед элементом выставляем запятю }
  result:=s; {Выдаем результат }
end;
{ ==============================================================}


// GetIndexElemnetFromMas - возвращает Index элемента который равен valueIndex
Function GetIndexElemnetFromMas(const a:TArrayInt;Ncount:integer;valueIndex:integer):integer;
var x:integer;
begin
  result:=-1;
  for X:=1 to Ncount do if (a[x]=a[valueIndex]) and (x<>valueIndex) then begin result:=x; exit; end;
end;

// Возвращает кол-во уникальных элементов
Function GetCountUniqElement(const a:TArrayInt;Ncount:integer):integer;
var s,x:Integer;
begin
  s:=0;
   for X:=1 to Ncount do
    if GetIndexElemnetFromMas(a,ncount,x)=-1 then s:=s+1;
   result:=s
end;


begin
clrscr;
 acount:=50;
// Сформировать линейный массив из 30 случайных чисел в интервале от -16 до 16.
 CreateArray(a,acount);
 Writeln('Исходный массив ');
 Writeln(ShowArray(a,acount));
//Подсчитать количество элементов k, которые встречаются в массиве однократно.
Writeln('количество элементов которые встречаются в массиве однократно равно ', GetCountUniqElement(a,acount));

end.