Question

Se consideră tabloul A[1..n,1..n] de numere intregi, unde n<=20.Sa se scrie un proram care va aduna la fiecare elemente al tabloului suma elementelor de pe diagonala principala.(IN PASCAL
)

Answer 1

Program Tema;

var a:array[1..20,1..20] of integer;
    i,j,s,n:integer;
Begin
s:=0;
writeln('Introduceti dimensiunea matricii:');
readln(n);
writeln('Introduceti matricea:');
for i:=1 to n do
begin
for j:=1 to n do
begin
readln(a[i][j]);
if i=j then
s:=s+a[i][j];
end;
readln;
end;

writeln('Elementele matricii noi sunt:');

for i:=1 to n do
begin
for j:=1 to n do
begin
a[i][j]:=s+a[i][j];
write(a[i][j]);
end;
writeln;
end;
End.