массив в паскале

[istragon]

Дано: var C: array [1..12,1..18] of char; k:integer;
Определить k-количество различных элементов массива C (т.е. повторяющиеся элементы считать один раз).

[kommunist]

Заполняеш массив затем ->

n:=c[1,1];  // символ который сравниваем
  for i:= 1 to 12 do
  begin
  for j:= 1 to 18 do
  begin
  if n = c[i,j]  // сравниваем все символы с первым
  then
  inc(k);      // увелисиваем на еденицу
end;
  write(k);
end;
  readln;
end.

[Tayfun]

Вот рабочий код:

program massiv;
uses crt;
const m=12; n=18;
var
b:array[1..m,1..n] of boolean;
c:array[1..m,1..n] of integer;
i,j,t,p,k:integer;
begin
clrscr;
randomize;
for i:=1 to m do begin
for j:=1 to n do begin
c[i,j]:=random(50)+10;
write(c[i,j],' ');
b[i,j]:=true;
end;
writeln;
end;
for i:=1 to m do
for j:=1 to n do
for t:=1 to m do
for p:=1 to n do
if (i<>t) or (j<>p) then begin
if b[i,j]=true then if c[i,j]=c[t,p] then b[t,p]:=false;
end;

writeln;
for i:=1 to m do
for j:=1 to n do if b[i,j]=true then begin k:=k+1; write(c[i,j],' '); end;
writeln;
writeln('KOLICHESTVO->',k);
readkey;
end.

[Plague]

for i:=1 to m do
for j:=1 to n do
for t:=1 to m do
for p:=1 to n do

получается сложность алгоритма n*m*n*m
для m=12 и n= 18
получаем 46656

  k:=0;
  for i:=1 to n-1 do
  begin
    for j:=i+1 to n do
      if c[i]=c[j] then
        begin
          t:=c[i+1];
          c[i+1]:=c[j];
          c[j]:=t;
        end;
      if c[i]<>c[i+1] then k:=k+1;
  end;
  k:=k+1;
// programming by plague

для одномерного массива сложность (n-1)*(n-2)/2
для двухмерного массива сложность (n*m-1)*(n*m-2)/2
для m=12 и n= 18
получаем 23005
ну и конечно если взять большие n и m разница сложности сушественна