program Project4_3;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
a:array [1..3, 1..4] of real;
i,j:integer;
s,s1:real;
begin
for i:=1 to 3 do
for j:=1 to 4 do
readln (a[i,j]);
end.
Как вычислить для каждой строки этого двумерного массива сумму значений элементов строки и как присвоить вычисленным значениям сумм элементам одномерного массива соответствующей длины?