Работа с матрицей

[Иги]

Преподаватель дал задачу: Написать процедуру умножения матрицы на число через одномерный массив,причем так чтобы использовались указатели. Не уверен что понял правильно,но кажется что нужно взять строку за одномерный массив:

TYPE
RealPtr = ^REAL;
PROCEDURE ArrayxNum(pA: RealPtr; n:WORD; c:REAL);
VAR
i: WORD;
BEGIN
FOR i := i TO n DO
BEGIN
pA^ := pA^ * c;
Inc(pA);
END;
END;
{MAIN PROGRAM}
.......................
pA - указатель на начало матрицы
n - кол-во строк
c- константа, на которую умножается матрица.

p.s. тип RealPtr это заморочки преподавателя. Не знаю правильно ли я написал что нужно,но помощь профи нужна. Если доделаете прогу,то буду только рад,на телефон денег могу кинуть немного)

[Иги]

закрывайте топ, я сам решил.

[ACE Valery]

Так поделитесь с коллегами