Răspuns :
Program Tema;
var a:array [1..100,1..100] of integer;
i,j,m,n,s:integer;
Begin
s:=0;
writeln('Introduceti nr linii tablou:');
readln(m);
writeln('Introduceti nr coloane tablou: ');
readln(n);
writeln('Introduceti 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 separata*)
readln;
end;
writeln('Suma tuturor elementelor din tablou este: ',s);
End.
var a:array [1..100,1..100] of integer;
i,j,m,n,s:integer;
Begin
s:=0;
writeln('Introduceti nr linii tablou:');
readln(m);
writeln('Introduceti nr coloane tablou: ');
readln(n);
writeln('Introduceti 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 separata*)
readln;
end;
writeln('Suma tuturor elementelor din tablou este: ',s);
End.
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Ne dorim ca informațiile furnizate să vă fi fost utile. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, nu ezitați să ne contactați. Revenirea dumneavoastră ne bucură, iar pentru acces rapid, adăugați-ne la favorite!