---

Var a: array[1..50,1..50] of integer;

i , j, n, m: integer;

Begin

Write('сколько строк?"); Readln(m);

Write('сколько столбцов?"); Readln(n);

Randomize;

For i:=1 to m do begin For j:=1 to n do begin a[i,j]:=random(46)-20; write(a[i,j],' ');

end;

writeln;

end;

End.

2. В двумерном массиве, состоящем из п целых чисел, найти сумму элементов в каждой

строке. Размер произвольный.

Program summastrok;

Var a: array[1..50,1..50] of integer;

i, j, n, m,S: integer;

Begin

Write('сколько строк?'); Readln(m);

Write('сколько столбцов?"); Readln(n);

For i:=1 to m do For j:=1 to n do begin write('a[',i,',',')='); readln (a[i,j]); end;