Задана символьная матрица размером NxM

[Sergey Zhlobo]

Задана символьная матрица размером NxM. Определить k-количество различных элементов матрицы (т.е повторяющиеся элементы считать один раз)
Использовать TStringGrid,Tlabal,Tedit

Нужно помочь до завтрашнего дня до вечера)

[Mad_Cat]

sc:=[];
for i:=1 to n do
for j:=1 to m do
if not (a[i,j] in sc) then sc:=sc+[a[i,j]];
k:=0;
for c:=0 to 255 do
if chr(c) in sc then  inc(k);

[Sergey Zhlobo]

sc:=[];
что это значит?

[Mad_Cat]

sc:=[];
что это значит?

sc:set of char;

[Serge_Bliznykov]

sc:=[];

что это значит?

Это означает, что множеству с именем SC присвоено ПУСТОЕ множество (множество, не содержащее ни одного элемента).
Дальнейшем в этом множестве будут накапливаться неповторяющиеся символы.

[Sergey Zhlobo]

СПАСИБО БОЛЬШОЕ)