нужно определить количество символов

[alex150394]

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

[KooKish]

Можно уточнить, матрица задана как массивы ?

[Sciv]

var elem: set of char;
    i,j,k: integer;
    a: array [1..N,1..M] of char;
begin
  elem:=[];
  k:=0;
  for i:=1 to N do
    for j:=1 to M do
      if not (a[i,j] in elem) then begin
        elem:=elem+[a[i,j]];
        inc(k);
      end;
  WriteLn(k);
end;

[Sciv]

матрица задана как массивы

А что, можно матрицу еще как-то задать?

[KooKish]

А что, можно матрицу еще как-то задать?

Ну знаешь... я же его задания не видел, люди создают темы и даже задания не пишут) вот и гадай потом что ему надо)

[Sciv]

Ну знаешь... я же его задания не видел, люди создают темы и даже задания не пишут) вот и гадай потом что ему надо)

Тоже верно. Если сильно извратиться - можно матрицу и списком задать

[Вадим Мошев]

Матрица - как такового понятие в Паскале нет, поэтому имеется некоторая свобода.
Можно задать как двумерный массив, можно как массив массивов, список списков, стек стеков, список стеков, стек списков и т.п. ИМХО

[Sciv]

Можно задать как двумерный массив, можно как массив массивов, список списков, стек стеков, список стеков, стек списков и т.п.

Да, но один и тот же способ реализации можно как угодно назвать Я думаю, тут вопрос был как раз о способе