Дана прямоугольная таблица, которая содержит не более 10 строк и не более 10 столбцов. Найти сумму элементов, которые расположены в строках с нечетными номерами. 

constn=10;m=10; var a:array[1..n,1..m]of integer; i,j,s:integer; begin           for i:=1 to n do                begin                          writeln;  s:=0;                                      for j:=1 to m do                                             begin                                                      a[i,j]:=random(50);                                                      write(a[i,j]:4);                                                       if i mod 2<>0 then                                                               s:=s+a[i,j];                                             end;                                                if i mod 2<>0 then                                                         writeln(s:6);                   end;      end.