Дан массив A[N], требуется умножить значения элементов этого массива ** 4, если А[i]>0,...

Question

Дан массив A[N], требуется умножить значения элементов этого массива на 4, если А[i]>0, или на 7, если А[i]<=0

Answer 1

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

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  a.Transform(x->x>0?x*4:x*7); a.Println
end.

Пример
n= 13
-9 23 -29 -36 -10 -20 9 28 26 34 -41 -2 45
-63 92 -203 -252 -70 -140 36 112 104 136 -287 -14 180