с задачей 3 по информатике .

Відповідь: 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);

Пояснення: