// PascalABC.NET 3.2, сборка 1437 от 03.05.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:=MatrRandom(6,3,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); a.Rows.Select(r->r.Where(x->x>0).Sum).Print; Println(' - суммы положительных');
Writeln; var z:=MatrRandom(3,5,-10,20); z.Println(4); Writeln(4*z.ColCount*'-'); z.Rows.SelectMany(x->x).Where(x->(x>0) and (x<15)).Println end.
Var a, b, c, x, y: Real;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
Write('c = ');
ReadLn(c);
x := Exp(0.25 * Ln(Sin(0.35 * a * b)));
y := Cos((3.04 * a) / (2 * x)) / Sin((3.04 * a) / (2 * x)) + 2 * Sin((a * b * b) / (3 * c));
WriteLn('x = ', x:5:2);
WriteLn('y = ', y:5:2);
ReadLn;
End.