zad1_dvumern

program zad1;
const n=3;
var a: array[1..n,1..n] of real; i,j:integer; g,p:real;
begin
writeln('Матрица:');
for i:=1 to n do
for j:=1 to n do
a[i][j]:=random(19)-9;
for i:=1 to n do
for j:=1 to n do
begin
write(a[i][j]:3);
g:=0;
if j=3 then writeln(); end;
j:=1;
for i:=1 to n do begin
g:=g+a[i][j];
inc(j);
end;
j:=n;
for i:=1 to n do begin
p:=p+a[i][j];
j:=j-1;
end;
writeln('Сумма элементов главной диагонали: ',g);
writeln('Сумма элементов побочной диагонали: ',p);
end.