//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016) Begin var m:=ReadInteger(); var n:=readInteger(); var a:=MatrixRandom(m,n); println(a); //вывод нечетных столбцов for var i:=0 to m-1 do begin for var j:=0 to n-1 do if j mod 2=0 then print(a[i,j]); println; end;
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016 begin var a:=ArrRandomReal(28,0.001,2); a.Println; Writeln(NewLine,'P=',a.Where(x->x<1.0).Aggregate(1.0,(p,x)->p*x)) end.
Begin
var m:=ReadInteger();
var n:=readInteger();
var a:=MatrixRandom(m,n);
println(a);
//вывод нечетных столбцов
for var i:=0 to m-1 do begin
for var j:=0 to n-1 do
if j mod 2=0 then print(a[i,j]);
println;
end;
End.