Задачи на Паскале. Применение сортировки и подсчет повторяющихся элементов в массиве.

Дан массив, содержащий 50 натуральных чисел, не превышающих 1000. Найти количество различных элементов массива.

	const N=50;
	var a: array [1..N] of longint;
	i,j,k,l: longint;
	for iL=1 to N do readLn(a[i]);
	for i:=1 to N-1 do
	for j:=i+1 to N do
	if (a[i]<a[j]) then
	begin
	l:=a[i];
	a[i]:=a[j];
	a[j]:=l;
	end;
	k:=n;
	for i:=1 to N-1 do
	if (a[i]=a[i+1]) then k:=k-1;
	writeLn(k);
	end.

view raw Sort.pas hosted with ❤ by GitHub