for j:=1 to 7 do
begin
b[j]:=0;
for i:=1 to 5 do
b[j]:=b[j]+a[i,j];
end;
for i:=1 to 7 do
Write(b[i]:3);
Объяснение:
