Двумерные массивы.Получение второй матрицы из суммы элеметов первой

@Домолаз · Регистрация: 08.04.2010

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

Дана квадратная матрица из вещественных чисел A порядка N(1<=N<=10). Получить матрицу B того же размера, элемент которой bij равен сумме элементов матрицы А, кроме расположенных в строке i и расположенных в столбце j. Количество операций сложения должно быть не более 5N^2.
Программу написал,проверьте пожалуйста:

Pascal

var
   a,b:array[1..10,1..10] of integer;
   i,n,j,s:integer;
   
   
function sumofstr(ii,jj:shortint):integer;
var
   i,j,si,sj:integer;
begin
   for i:=1 to n do
      if (ii=i) then
         for j:=1 to n do
            si:=si+a[i,j];
   for j:=1 to n do
      if jj=j then
         for i:=1 to n do
            sj:=sj+a[i,j];
   sumofstr:=sj+si;
end;
 
 
begin
   randomize;
   readln(n);
   writeln('Chto bilo: ');
   for i:=1 to n do
   begin
      for j:=1 to n do
      begin
         a[i,j]:=random(2);
         s:=s+a[i,j];
         write(a[i,j]:3);
      end;
      writeln;
   end;
   writeln;
   writeln;
   writeln('Poluchilos: ');
   for i:=1 to n do
   begin
      for j:=1 to n do
      begin
         b[i,j]:=s-sumofstr(i,j);
         write(b[i,j]:3);
      end;
      writeln;
   end;
end.

Добавлено через 1 час 0 минут
помогите

Добавлено через 34 минуты
нарооооод

Добавлено через 18 часов 17 минут
Решил. Если кому нибудь надо, то вот код:

Pascal

var
   a,b:array[1..11,1..11] of integer;
   i,n,j,s:integer;
   
   
function sumofstr(ii,jj:shortint):integer;
var
   i,j,si,sj:integer;
begin
   for i:=1 to n do
      if ii=i then
         for j:=1 to n do
            si:=si+a[i,j];
   for j:=1 to n do
      if jj=j then
         for i:=1 to n do
            sj:=sj+a[i,j];
   sumofstr:=sj+si-a[ii,jj];
end;
 
 
begin
   randomize;
   readln(n);
   writeln('Chto bilo: ');
   for i:=1 to n do
   begin
      for j:=1 to n do
      begin
         a[i,j]:=random(3);
         s:=s+a[i,j];
         write(a[i,j]:3);
      end;
      writeln;
   end;
   writeln;
   writeln;
   writeln('Chto Poluchilos: ');
   for i:=1 to n do
   begin
      for j:=1 to n do
      begin
         b[i,j]:=s-sumofstr(i,j);
         write(b[i,j]:3);
      end;
      writeln;
   end;
end.

	16.10.2010, 17:32