дана матрица размера NxM

[Глебыч]

Задана символьная матрица размером NxM. Определить k-количество различных элементов матрицы (т.е повторяющиеся элементы считать один раз) Нужна программа в Паскале. Буду благодарен за помощь

[iCaesy]

Думаю благодарности будет мало. За лень, нынче, платить нужно.
=)

[Serge_Bliznykov]

если символьная - это матрица из CHAR - тогда в этой задаче ОЧЕНЬ удобно использовать множество (set of char):

const N=5; M=10;
var 
   Ch : set of char;
   YourArray : array[1..N,1..M] or char;
   Onechar : char;
   i, j, Count : integer;
begin
   /// ТУТ ВВОД символьного массива YourArray.... ////

   {а вот подсчёт}
   Count := 0;
   Ch := [];
   for  i:=1 to N do
     for j:=1 to M do
       if YourArray[i,j] not in Ch then begin
         inc(Count);
         Include(Ch, YourArray[i,j]); 
       end;

   WriteLn('Всего различных символов в массиве: ', Count);
   Readln;
end.

p.s. при необходимости все уникальные символы собраны в Ch, при необходимости их легко вывести...

[Глебыч]

у меня не лень, просто делал множество разных вариантов, но что то не работало. Спасибо за помощь

[Leshii]

Если делал, то почему не показал что делал?Просто мне кажется что ничего не делал.Ну да и пусть, хоть спасибо сказал.