Дан двумерный массив А, сформировать массив B состоящий из сумм элементов нечетных строк.

k:=0;
for i:=1 to 5 do
begin
sum:=0;
if odd(i) then for j:=1 to 5 do sum:=sum+A[ i,j]
else continue;
inc(k);
B[k]:=sum;
end;