Подсчет суммы элементов в каждой строке и каждом столбце двумерного массива

@Sqart · Регистрация: 24.10.2012

Студворк — интернет-сервис помощи студентам

Составьте программу подсчета суммы элементов в каждой строке и каждом столбце двумерного массива. Число строк и столбцов произвольное. Массив задается с помощью функции случайных чисел.
Очень много вариантов перепробывал никак не могу додуматься, помогите.На всякий случай прикреплю все задачи

@ermolay · 25.10.2012, 01:03

Pascal

const
  nmax=20;
var
  a: array[1..nmax,1..nmax] of integer;
  n,m,i,j,sum: integer;
begin
  randomize;
  write('Введите размеры массива n, m: ');
  readln(n,m);
  writeln('Mассив:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(9)+1;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
  
  for i:=1 to n do
  begin
    sum:=0;
    for j:=1 to m do
      sum:=sum+a[i,j];
    writeln('Сумма элементов ',i,'-й строки = ',sum);
  end;
  writeln;
  for j:=1 to m do
  begin
    sum:=0;
    for i:=1 to n do
      sum:=sum+a[i,j];
    writeln('Сумма элементов ',j,'-го столбца = ',sum);
  end;
  readln;
end.

Опции темы

Подсчет суммы элементов в каждой строке и каждом столбце двумерного массива

Решение