помогите паскаль пожалуйста ! просуммировать элементы строк матрицы размером...

Question

помогите паскаль пожалуйста ! просуммировать элементы строк матрицы размером 4/3.Результат получить в одномерном массиве размером 4

Answer 1

program xyz;
var A:array [1..4][1..3]of integer;
B:array [1..4] of integer;
i,j,s:integer;
begin
s:=0;
for i:= 1 to 4 do
for j:= 1 to 3 do
A[i,j]:= random(100)-50;
for i:=1 to 4 do
begin
for j:=1 to 3 do
s:=s+A[i,j];
b[i]:=s;
s:=0;
end;
for i:= 1 to 4 do
writeln (B[i]);
end.