// PascalABC.NET 3.2, сборка 1353 от 27.11.2016 // Внимание! Если программа не работает, обновите версию!
begin var a:=MatrRandom(6,5,-50,50); a.Println(4); Writeln; var res:=new int64[6]; for var i:=0 to 5 do if i.IsEven then res[i]:=a.Row(i).Aggregate(int64(1),(x,y)->x*y) else res[i]:=a.Row(i).Sum; Writeln('Результаты:'); res.Println(NewLine) end.
Где фото???
Давай с чем та?