Дано: двовимірний масив дійсних чисел. Визначнте: добуток елементів, розміщених у непарних стовпцях.

//Pascal ABC.NET v3.1 сборка 1172Const n=3;Var ma:array[1..n,1..n] of real; i,j:integer; r:real;begin randomize; r:=1; writeln('Matrix:');  for i:=1 to n do   begin;   writeln;    for j:=1 to n do     begin;      ma[i,j]:=random(1,10);      if j mod 2<>0 then r:=r*ma[i,j];      write(ma[i,j]:4);     end;   end; writeln; writeln('Res=',r);end.Пример работы кода:Matrix:   5   3   3   2   2   5  10   2   4Res=6000

// PascalABC.NET 3.1, сборка 1172 от 19.02.2016begin  var m:=ReadInteger('число строк ');  var n:=ReadInteger('число столбцов ');  var a:array[,] of real; SetLength(a,m,n);  Randomize;  var p:=1.0;  for var i:=0 to m-1 do begin    for var j:=0 to n-1 do begin      a[i,j]:=89*Random+10;      Write(a[i,j]:0:5,' ');      if j mod 2=0 then p*=a[i,j]      end;    Writeln    end;  Writeln(p)end.Тестовое решение:число строк  4число столбцов  383.48215 49.40392 38.47974 79.95518 85.86098 19.45080 34.86908 65.25898 51.15671 96.59641 24.22868 42.34227 36449203938146.9