Question

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

Answer 1

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.