Дана вещественная матрица размера m*n. Сформировать одномерный массив, элементами которого

Да что ж везде Pascal то , для чего вы прогаете на мертвом языке?

Const n=4; m=5;
var
a: array[1..m, 1..n] of real;
b: array[1..m div 2] of real;
s: real;
i, j: integer;
begin
//считываем матрицу
for i:=1 to m do
  for j:=1 to n do
    readln(a[i, j]);
for i:=1 to m do
//проверяем четность индекса строчки
  if i mod 2 = 0 then
    begin
    s := 1;
    for j:=1 to n do
//проверяем элемент на неимение дробной доли
      if a[i, j] = int(a[i,j]) then
        s := s * a[i, j];
//присваиваем элементу массива b творение
    b[i div 2] := s;
    end;
end.