Question

Exercitiul 2 (scrieti va rog un program in pascal) Dau coroana

Answer 1

var a:array[1..20,1..20] of integer;

  j,i,n,s:integer;

begin

 readln(n);

 for i:=1 to n do

  for j:=1 to n do

  readln(a[i,j]);

s:=0;

for i:=1 to n do

 s:=s+a[i,i];

write(s);

end.