Каждому элементу главной диагонали прибавить сумму предшествующих ему элементов данной строки

[Ace_400]

Кому не трудно, можете помочь с кодом?
Матрица квадратная

[Aleksandr H.]

ЯП?

[min@y™]

Сообщение от Aleksandr H.

ЯП?

[newerow1989]

var p:array[1..10,1..10] of integer;
    i,j,s:integer;
begin
   Randomize;
   For i:=1 to 10 do
   begin
      For j:=1 to 10 do
      begin
         p[i,j]:=Random(21);
         Write(p[i,j]:3,'  ');
      end;
      Writeln;
   end;
   Writeln;
   For i:=2 to 10 do
   begin
      s:=0;
      For j:=1 to i-1 do
         s:=s+p[i,j];
      p[i,i]:=p[i,i]+s;
   end;
   For i:=1 to 10 do
   begin
      For j:=1 to 10 do
         Write(p[i,j]:3,'  ');
      Writeln;
   end;
   Writeln;
   Readln;
end.

С Новым 2018 годом!!!