Question

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

Answer 1

// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
  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
число столбцов  3
83.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

Answer 2

//Pascal ABC.NET v3.1 сборка 1172

Const
 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   4
Res=6000