Pascal. Дана квадратная матрица. Найти сумму элементов отдельно главной и побочной диагоналей. Вывести произведение найденных ///

[Звездочка 22]

Задача скрыта, спасибо...

[Stilet]

А что не срослось?
Покажи попытки.

[newerow1989]

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

Сойдет?

[Звездочка 22]

спасибо )))

[newerow1989]

Пожалуйста!