Составить алгоритм и программу

[Falk]

Дана матрица В[1:5;1:5]
Если среднеарифметическое последних 3-х столбцов больше среднеарифметического первых 3-х строк, то в элементах главной диагонали поменять знак на обратный. Иначе в матрицу вставить четвертую строку, полученную суммированием в соответствующих столбцах элементов 1-ой и 5-ой строк

[newerow1989]

var b:array[1..5,1..5] of integer;
    i,j,s1,s2:integer;
begin
   Randomize;
   For i:=1 to 5 do
   begin
      For j:=1 to 5 do
      begin
         b[i,j]:=-10+Random(20);
         Write(b[i,j],'  ');
      end;
      Writeln;
   end;
   Writeln;
   s1:=0;
   s2:=0;
   For i:=1 to 5 do
      For j:=3 to 5 do
         s1:=s1+b[i,j];
   For i:=1 to 3 do
      For j:=1 to 5 do
         s2:=s2+b[i,j];
   { s1/15 и s2/15 не обязательно! }
   If s1>s2 then
   begin
      For i:=1 to 5 do
         b[i,i]:=-b[i,i];
      For i:=1 to 5 do
      begin
         For j:=1 to 5 do
            Write(b[i,j],'  ');
         Writeln;
      end;
   end else
   begin
      For i:=1 to 3 do
      begin
         For j:=1 to 5 do
            Write(b[i,j],'  ');
         Writeln;
      end;
      For j:=1 to 5 do
      begin
         s1:=0;
         For i:=1 to 5 do
            s1:=s1+b[i,j];
         Write(s1,'  ');
      end;
      Writeln;
      For i:=4 to 5 do
      begin
         For j:=1 to 5 do
            Write(b[i,j],'  ');
         Writeln;
      end;
   end;
   Readln;
end.

Сойдет?

[Falk]

Сообщение от newerow1989

var b:array[1..5,1..5] of integer;
    i,j,s1,s2:integer;
begin
   Randomize;
   For i:=1 to 5 do
   begin
      For j:=1 to 5 do
      begin
         b[i,j]:=-10+Random(20);
         Write(b[i,j],'  ');
      end;
      Writeln;
   end;
   Writeln;
   s1:=0;
   s2:=0;
   For i:=1 to 5 do
      For j:=3 to 5 do
         s1:=s1+b[i,j];
   For i:=1 to 3 do
      For j:=1 to 5 do
         s2:=s2+b[i,j];
   { s1/15 и s2/15 не обязательно! }
   If s1>s2 then
   begin
      For i:=1 to 5 do
         b[i,i]:=-b[i,i];
      For i:=1 to 5 do
      begin
         For j:=1 to 5 do
            Write(b[i,j],'  ');
         Writeln;
      end;
   end else
   begin
      For i:=1 to 3 do
      begin
         For j:=1 to 5 do
            Write(b[i,j],'  ');
         Writeln;
      end;
      For j:=1 to 5 do
      begin
         s1:=0;
         For i:=1 to 5 do
            s1:=s1+b[i,j];
         Write(s1,'  ');
      end;
      Writeln;
      For i:=4 to 5 do
      begin
         For j:=1 to 5 do
            Write(b[i,j],'  ');
         Writeln;
      end;
   end;
   Readln;
end.

Сойдет?

Она правильная?
Работает?