> -- Цитата:
> MODULE CalcSum; VAR Ma: ARRAY 10 OF ARRAY 10 OF INTEGER; MRes: ARRAY 10 OF INTEGER; Mi, Mk: INTEGER; BEGIN (* Заполнение массива Ma *) Следует заполнить чем-нибудь (* Расчет суммы *) FOR Mi:=0 TO 9 DO FOR Mk:=0 TO 9 DO INC(MRes[Mi],Ma[Mi,Mk]); (* Накопление суммы *) END; END; END CalcSum. Че та не то!Возможно Вы не использовали кнопку Code. Она рядом с Quote находится.