> -- Sid Vicious писал(а):
> У меня проблема с подсчетом суммы строк массива!!

Это серьёзная проблема.

Я бы сделал так:

## Код:
```
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.
```
