Найти число различных элементов целочисленного массива, состоящего из 100 элементов

var
m:array[1..100] of integer;
i,j,t,q,k:integer;
begin
writeln('Заполнение массива: ');
for i:=1 to 100 do
begin
m[i]:= random(50); write(m[i]:3);
end;
for i:= 1 to 99 do 
for j:= 1 to 100-i do 
if m[j] > m[j+1] then begin
t:= m[j];  
m[j]:= m[j+1]; 
m[j+1]:= t; 
end;
writeln;
writeln('Отсортированный массив: ');
for j:=1 to 100 do
write (m[j]:3);
q:=100;
k:=0;
for j:=1 to 99 do
begin
if m[j]=m[j+1] 
then k:=k+1; q:=q-k; 
end;
writeln;
writeln('Различных элементов: ',q);
end.

const n=100;
var
m:array[1..n] of integer;
i,j,t,q,k:integer;
begin
randomize;
writeln('Заполнение массива: ');
for i:=1 to n do
 begin
  m[i]:= random(50);
  write(m[i]:4);
  if i mod 20=0 then writeln;
 end;
writeln;
for i:= 1 to n-1 do
for j:= 1 to n-i do
if m[j] > m[j+1] then
 begin
  t:= m[j];
  m[j]:= m[j+1];
  m[j+1]:= t;
 end;
writeln('Отсортированный массив: ');
for i:=1 to n do
 begin
 write (m[i]:4);
 if i mod 20=0 then writeln;
end;
writeln;
k:=0;
for i:=1 to n-1 do
if m[i]=m[i+1] then k:=k+1;
q:=100-k;
writeln('Различных элементов: ',q);
end.

Program P16;
 
Var A : Array[1..10] Of integer;
Var B : Array[1..10] Of integer;
Var i,j,k,f,n         : integer;
 
Begin
    A[1]:=1;
    A[2]:=2;
    A[3]:=3;
    A[4]:=4;
    A[5]:=5;
    A[6]:=1;
    A[7]:=-2;
    A[8]:=3;
    A[9]:=4;
    A[10]:=5;
    n:=10;
    k:=0;
    for i:=1 to n Do Begin
        f:=0;
        for j:=1 to k Do
            if A[i]=B[j] Then Begin
               f:=1;
               break;
            End;
        If f=0 then Begin
           inc(k);
           B[k]:=A[i];
        End;
    End;
    Writeln(k);
End.