Разряженная матрица. Мультисписки., Matrix Forever! Опции

[kase666]

Вообщем тема...

Разряженая матрица в виде мультисписков.
Необходимо найти максимальный элемент и удалить строку и столбец его содержащие.
==================
В принципе проблем нет, НО - мульти списки...
В реале это просто:

MAX:=A[1,1];DEL_X:=1; DEL_Y:=1;
    FOR I:=1 TO RAZ_Y DO BEGIN
    FOR J:=1 TO RAZ_X DO
    IF MAX<A[J,I] THEN   
      BEGIN
      MAX:=A[J,I];
      DEL_X:=J; DEL_Y:=I; 
      END;

RAZ_Y:=RAZ_Y-1;
    FOR I:=DEL_Y TO RAZ_Y DO
    FOR J:=1 TO RAZ_X DO
    A[J,I]:=A[J,I+1];
    RAZ_X:=RAZ_X-1;
    FOR I:=1 TO RAZ_Y DO
    FOR J:=DEL_X TO RAZ_X DO
    A[J,I]:=A[J+1,I];

Но с указателями через динамическую память да еще списки...
Подскажите?

Сообщение отредактировано: volvo - 22.12.2005 17:21