Question

Составить программу вычисления суммы элементов, двумерного массива размерностью 9*9?

Answer 1

Var m:array[1..9,1..9] of integer;
    s,j,i:integer;
begin
  randomize;
  s:=0;

  For i:=1 to 9 do
  For j:=1 to 9 do
  m[i,j]:=random(100)+1;

  For i:=1 to 9 do
  For j:=1 to 9 do
  s:=s+m[i,j];

  writeln('Сумма элементов двумерного массива размерностью 9*9 = ',s);
end.