задача на сравнение, массивы Опции

[ilyg]

const n=50;
var x:array[1..n] of integer; k:integer;
Подсчитать k-число различных элементов в массиве x.

[Zzzz...]

Подсчитать k-число различных элементов в массиве x.

Здесь имеется в виду элементы, которые встретились только один раз?

[Malice]

const n=50;
var x:array[1..n] of integer; k:integer;
Подсчитать k-число различных элементов в массиве x.

Где-то так:

k:=n;
for i:=2 to n do
 for j:=1 to i-1 do
  if x[j]=x[i] then begin dec (k); break; end;