Дан двумерный массив. Дополнить его n+1 строкой и m+1 столбцом,в котором находятся сумма элементов каждой строки и столбца

@fifa068 · Регистрация: 04.06.2012

здравствуйте. помогите решить задачу. Дан двумерный массив вещественных чисел размерностью N*M. дополнить его n+1 строкой и m+1 столбцом,в котором находятся сумма элементов каждой строки и столбца соответственно.(вывод в виде матрицы)

@ermolay · 07.06.2012, 23:32

Pascal

const
  nmax=100;
var
  n,m,i,j,sum: integer;
  a: array[1..nmax,1..nmax] of integer;
begin
  writeln('Введите размеры массива n,m: ');
  readln(n,m);
  writeln('Исходный массив:');
  for i:=1 to n do
  begin
  sum:=0;
    for j:=1 to m do
    begin
      a[i,j]:=random(9)+1;
      write(a[i,j]:5);
      sum:=sum+a[i,j];
    end;
    a[i,m+1]:=sum;
    writeln;
  end;
  writeln;
  
  for j:=1 to m do
  begin
    sum:=0;
    for i:=1 to n do
      sum:=sum+a[i,j];
    a[n+1,j]:=sum;
  end;
  
  writeln('Полученный массив:');
  for i:=1 to n+1 do
  begin
    for j:=1 to m+1 do
      write(a[i,j]:5);
    writeln;
  end;
  readln;
end.

@fifa068 0 / 0 / 0 Регистрация: 04.06.2012 Сообщений: 93
		1
	Дан двумерный массив. Дополнить его n+1 строкой и m+1 столбцом,в котором находятся сумма элементов каждой строки и столбца 07.06.2012, 23:16. Показов 1487. Ответов 1 Метки нет (Все метки) здравствуйте. помогите решить задачу. Дан двумерный массив вещественных чисел размерностью N*M. дополнить его n+1 строкой и m+1 столбцом,в котором находятся сумма элементов каждой строки и столбца соответственно.(вывод в виде матрицы) 0

Опции темы

Дан двумерный массив. Дополнить его n+1 строкой и m+1 столбцом,в котором находятся сумма элементов каждой строки и столбца

Решение