Дан двумерный целочисленный массив А. Сформировать одномерный массив В, состоящий из суммы элементов каждого столбца массива А.

Const

n=10;

m=5;

var

i, j, s:integer;

a:array[1 ... m, 1 ... n]of integer;

b:array[1 ... n]of integer;

begin

writeln ('Массив А:');

for i:=1 to m do

begin

for j:=1 to n do

begin

a[i, j]:=random (10);

write (a[i, j]:3);

end;

writeln;

end;

for j:=1 to n do

begin

s:=0;

for i:=1 to m do s:=s+a[i, j];

b[j]:=s;

end;

writeln ('Массив В:');

for i:=1 to n do write (b[i]:3);

end.