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

1

Ответы и объяснения

2013-10-24T06:06:40+00:00
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.




Впринципе это почти что тебе нужно там есть сумма массива 10х10, только там еще есть дополнительная фигня, она особо тебе не нужна. Просто у меня уже готовое было вот такое и скинул, редактировать лень)