что то типа смесь паскаля с пхп
s=0;
for i=1 to n do
for j=1 to m do
s=s+a[i,j];
// s= symma vseh


for j=1 to m do begin
s2=0;
for i=1 to n do
s2:= s2+a[i,j];

a[n+1,j]:=s2;

end;
// получили матрицу m на n+1

p=s/100;
for i=1 do n
writeln(p*a[a[n+1,i]]) // выводим в процентом соотношении

вохможно какие то ошибки в коде , но это уже сам