Question

Elaborați un program utilizând funcția sau procedură pentru a calcula suma componentelor unui tablou bidimensional. (în PASCAL)
Vă rog mult să mă ajutați, este urgent!!!

Answer 1

Program A1;
var n,m,s:integer;
function suma(n,m,s:integer):integer;
var
i,j:integer;
x:array[1..50,1..50] of integer;
begin
for i:=1 to n do begin
for j:=1 to m do begin
Write('x[',i,',',j,']=');readln(x[i,j]);
s:=s+x[i,j];
suma:=s;
end;
end;
end;
begin
Writeln('Dati n si m');
readln(n,m);
Writeln(suma(n,m,s));
readln;
end.