Паскаль, матрицы

[Liam_]

Подскажите с решением, вот задача: Дана матрица размера n х m . Определить количество различных элементов матрицы (т.е. повторяющиеся считать один раз). Пояснения: исходная матрица должны считываться из файла, в котором записана квадратная матрица размером не менее 6 строк и 6 столбцов, вводится с клавиатуры, после завершения работы программы исходная матрица и результаты работы программы должны быть выведены на экран и в текстовый файл

[malinoff]

массив значения;
цикл1 i от 0 n-1
    цикл2 j от 0 до m-1
           если элемент[i][j] не принадлежит массиву значений, записать его туда
           иначе продолжить цикл

[Serge_Bliznykov]

способ от malinoff вполне рабочий. Только массив значений потребует дополнительных ресурсов и памяти...
но можно и так решить.

а ещё я бы предложил такой вариант:
для каждого элемента A[i,j] проверять не было ли данного значения в массиве раньше:

function IsWasBefore(ii,jj : integer) : boolean;
var i0, j0 : integer;
begin
   IsWasBefore := false;
   for j0:= Нач.ИндексСтолбцов to jj-1 do
        if A[ii,j0]=A[ii,jj] then begin
           IsWasBefore := true;
           Exit;
        end;

   for i0:= Нач.ИндексСтрок to ii-1 do
     for j0:= Нач.ИндексСтолбцов to КоличествоСтолбцов do
        if A[i0,j0]=A[ii,jj] then begin
           IsWasBefore := true;
           Exit;
        end;
end;