Замена строк в Матрице. Опции

[TALbert666]

1) В матрице B заменить заданным вектором строки, которые содержат хотя бы один ненулевой элемент.
2) В полученной матрице найти сумму элементов столбцов с нечётными номерами.
примечание:
матрица B -прямоугольная, размером mxn.

[klem4]

2) В полученной матрице найти сумму элементов столбцов с нечётными номерами.
примечание:
матрица B -прямоугольная, размером mxn.

Код

uses crt;
const m=3;
     n=4;
var x:array[1..m,1..n] of integer;
   i,j,s:integer;

Begin
  clrscr;
  randomize;
  s:=0;
  for i:=1 to m do
   begin
      for j:=1 to n do
       begin
          x[i,j]:=random(11)-random(6);
          write(x[i,j]);
          write(' ');
       end;
       writeln;
   end;
  for i:=1 to m do
    for j:=1 to n do
     if j mod 2 <> 0 then
      s:=s+x[i,j];
   writeln('s=',s);
   readln;
   end.