Найти сумму элементов каждой четной строки матрицы и произведение элементов каждой нечетной

const n = 10; m = 15;
var
  a: array [1..n, 1..m] of integer;
  b: array [1..n] of real;
  i, j: byte;
begin
  randomize;
  for i := 1 to n do begin
    for j := 1 to m do begin
      a[i,j]:=random(10)+1;
      write(a[i,j]:3,' ');
    end;
    writeln;
  end;
  write('Массив: ');
  for i:=1 to n do begin
    if odd(i) then begin
      b[i]:=1;
      for j:=1 to m do b[i]:=b[i]*a[i,j];
    end else begin
      b[i]:=0;
      for j:=1 to m do b[i]:=b[i]+a[i,j];
    end;
    write(b[i],' ');
  end;
end.

const
  n = 10;
  m = 15;
 
var
  a: array[1..n, 1..m] of LongInt;
  b: array[1..n] of real;
  i, j: integer;
  s, p: real;
 
begin
  randomize;
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := -n * m div 2 + random(n * m);
      Write(a[i, j]:8);
    end;
    writeln;
  end;
  for i := 1 to n do
  begin
    s := 0;
    p := 1;
    if not odd(i) then 
    begin
      for j := 1 to m do
        s := s + a[i, j];
      b[i] := s;
    end
    else
    begin
      for j := 1 to m do
        p := p * a[i, j];
      b[i] := p;  
    end;
  end;
  writeln('Массив B:');
  for j := 1 to n do
    write(b[j], ' ');
end.

program Project1;
const n=10;m=15;
  var d:array [1..n,1..m] of integer;
      x:array [1..n] of integer;
      i,j:integer;
begin
  for i:=1 to n do begin
    for j:=1 to m do begin
      d[i,j]:=random(3)+1;
      write(d[i,j]:2);
      end;
    writeln;
    end;
  writeln;
  for i:=1 to n do begin
    if odd(i) then x[i]:=1 else x[i]:=0;
    for j:=1 to m do 
      if odd(i) then x[i]:=x[i]*d[i,j] else x[i]:=x[i]+d[i,j];
    writeln(x[i]);
    end;
end.