Написать фрагмент суммирования матрицы 10 x 10. Решите пожалуйста.

+ 0 -

Rathash

19 окт. 2016 г., 1:22:34 (7 лет назад)

const m = 10;
n = 10;
 
var a: array[1..m,1..n] of byte;
s: array[1..n] of byte;
i,j, sum: byte;  

begin
randomize;  
for i := 1 to m do begin
for j := 1 to n do begin
   a[i,j] := random(10);
   write (a[i,j]:3)
end;
writeln end;  
writeln ('------------');  
for j := 1 to n do begin
for i := 1 to m do begin
s[j] := s[j] + a[i,j];
sum := sum + a[i,j]
end;
write (s[j]:3)
end;  
write (' | sum = ', sum);  
readln
end.