Question

Вычислить функцию Z=lnA-cos^3B+C, где a,b,c суммы положительных элементов массивов x,y,t

Answer 1

// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var x:=ArrRandom(ReadInteger('Число элементов массива х:'),-99,99);
  x.Println; var a:=x.Where(p->p>0).Sum;
  var y:=ArrRandom(ReadInteger('Число элементов массива y:'),-99,99);
  y.Println; var b:=y.Where(p->p>0).Sum;
  var t:=ArrRandom(ReadInteger('Число элементов массива t:'),-99,99);
  t.Println; var c:=t.Where(p->p>0).Sum;
  Writeln('Z=',Ln(a)+Power(Cos(b),3)+c)
end.

Пример
Число элементов массива х: 8
56 59 24 -5 -13 -24 9 -86
Число элементов массива y: 11
0 6 25 -69 86 34 -92 72 -39 -64 96
Число элементов массива t: 6
-54 24 -15 50 0 19
Z=97.999309110524