Найти сумму элементов главной диагонали двумерного массива (3х3)

Var r: array[1..3,1..3] of integer; i,j,n,k,sum: integer;   b: array[1..30]of integer; beginrandomize; writeln('исходная матрица: '); for i: =1 to 3 dobeginfor j: =1 to 3 dobeginr[i,j]: =random(15)-5; write(r[i,j]: 3); end; writeln; end; // cумма диагоналиwriteln; for i: =1 to 3 dobeginfor j: =1 to 3 dobeginif i=j then beginwrite(r[i,j]: 3); sum: = sum + r[i,j]; end elsewrite(' ': 3); end; writeln; end; writeln(sum); end.

костер: в древности люди разжигали костры, дым от которых был виден за сотни километров. они служили визуальными сигналами, оповещали о чем-то, например об опасности.

сумка с конвертами внутри: это атрибутика почтальона, разносящего письма.

барабан: барабанная дробь, так же символ передачи информации, но уже звуковой. это происходило в старые времена во время военных баталий, так же при военных построениях и парадах, что происходит и по сегодняшний день, барабанный дробь отбивает такт, под который маршируют солдаты.

var i,s,p: integer; a: array [1..100] of integer;

begin 

s: =0; p: =0;

writeln('vvedite masiv a: ');  

for i: =1 to 10 do begin

write('a[',i,']=');

readln(a[i]);

end;

for i: =1 to 10 do begin

if a[i]> 0 then s: =s+a[i];  

end;

s: =s*2;

writeln('udvoennaya suma polozhitelnih elementov=',s);

writeln('indexi elementov kotorie bolshe prediduschego: ');

writeln;

for i: =2 to 10 do begin

if a[i]> a[i-1] then write(i,', ');

end;

for i: =2 to 10 do begin

if ((a[i]> =0) and (a[i-1]> =0)) or ((a[i]< 0) and (a[i-1]< 0)) then p: =p+1;

end;

writeln;

if p> 0 then writeln('masiv imeet pari sosednih elementov s odnakovimi znakami') else   writeln('masiv ne imeet pari sosednih elementov s odnakovimi znakami');  

readln(s);

end.