👤
a fost răspuns

Se consideră tabloul A[1..n,1..n] de numere întregi unde n<=20. Să se scrie un program care va aduna la fiecare element al tabloului suma elementelor de
pe diagonala principală.
(în Pascal)

Răspuns :

program p1;

type tab=array[1..n,1..n] of integer;
var A:tab; SumaDiag,i,j:integer;

begin
write('n:'); readln(n);
writeln('Dati elementele:');
for i:=1 to n do
for j:=1 to n do begin
write('A[,i,',',j,']='); readln(A[i,j]);
end;
SumaDiag:=0;
for i:=1 to n do
for j:=1 to n do if i=j then SumaDiag:=SumaDiag + A[i,j];
for i:=1 to n do
for j:=1 to n do A[i,j]:=A[i,j]+SumaDiag;
end.
Vă mulțumim că ați vizitat platforma noastră dedicată Informatică. Sperăm că informațiile oferite v-au fost utile. Dacă aveți întrebări sau aveți nevoie de asistență suplimentară, nu ezitați să ne contactați. Așteptăm cu nerăbdare să vă revedem și nu uitați să ne salvați în lista de favorite!


Ez Askings: Alte intrebari