var
  a:array[1..6,1..3] of real;
  b:array[1..6] of real;
  i,j:integer;
  s:real;
begin
  randomize;
  writeln('исходный массив:');
  s:=0.0;
  for i:=1 to 6 do begin
    b[i]:=1.0;
    for j:=1 to 3 do begin
      a[i,j]:=random *10-2;
      write(a[i,j]:10:2);
      b[i]:=b[i]*a[i,j];
    end;
    s:=s+b[i];
    writeln;
  end;
  writeln('Полученный одномерный массив:');
    for i:=1 to 6 do writeln(b[i]:10:2);
  writeln('Сумма элементов равна:',s:10:2);
end.