Відповідь: program p1; var
A:array[1..100,1..100] of integer;
i,n,m,j,S: Integer; begin
writeln('n'); readln(n); writeln('m'); readln(m);
for i:=1 to n do begin
for j:=1 to m do begin
A[i,j]:=0+random(30);
write(A[i,j]:4); end;
writeln; end;
for i:=1 to n do begin
S:=0;
for j:=1 to m do
inc(S,A[i,j]);
writeln('String =',i:3,' S = ',S);
Пояснення:
