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.
