Задана символьная матрица размером NxM. Определить k - количество различных элементов матрицы

Категория: Delphi/Pascal
2012-10-10 15:53:36

т.е. повторяющиеся элементы считать один раз

code: #pascal
var s: string;
...
count := 0;
for i:=1 to n do
 for j:=1 to m do
  if pos(":"+a[i,j]+":", s) = 0 then begin
   s := s + ":"+a[i,j]+":";
   inc(count);
  end;

автор: бугага

Поделиться:

Похожие статьи:

теги: двумерный массив, массив, студенты, матрица, символьный массив