Răspuns :
Program Tema;
var a:array [1..100,1..100] of integer;
i,j,m,n,s:integer;
Begin
s:=0;
writeln('Introduceți nr. linii tablou:');
readln (m);
writeln(Introduceți nr. coloane tablou:');
readln (n);
writeln('Introduceți matricea:');
for i:=1 to m do
begin
for j:=1 to n do
begin;
read (a[i][j]);
s:=s+a [i][j];
end;
(*Folosesc acest readln pentru a putea citi fiecare linie din matrice de pe o linie separată*)
readln;
end;
writeln('Suma tuturor elementelor din tablou este:',s);
End.
Succes în continuare!
var a:array [1..100,1..100] of integer;
i,j,m,n,s:integer;
Begin
s:=0;
writeln('Introduceți nr. linii tablou:');
readln (m);
writeln(Introduceți nr. coloane tablou:');
readln (n);
writeln('Introduceți matricea:');
for i:=1 to m do
begin
for j:=1 to n do
begin;
read (a[i][j]);
s:=s+a [i][j];
end;
(*Folosesc acest readln pentru a putea citi fiecare linie din matrice de pe o linie separată*)
readln;
end;
writeln('Suma tuturor elementelor din tablou este:',s);
End.
Succes în continuare!
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile disponibile v-au fost utile și inspiraționale. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, suntem aici pentru a vă ajuta. Ne face plăcere să vă revedem și vă invităm să adăugați site-ul nostru la favorite pentru acces rapid!