Question

В программе pascalABC.NET

1)Дан массив из 10 элементов, заменить все элементы на противоположные по знаку.

2)Дан одномерный массив. Прибавьте ко всем элемента по 1.
3)Дан одномерный массив. Уменьшите значение элементов на 3.

Answer 1

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

begin
  var a:=ArrRandom(10,-50,50); a.Println;
  a.Transform(x->-x); a.Println;
  a.Transform(x->x+1); a.Println;
  a.Transform(x->x-3); a.Println
end.

Пример
-46 23 16 -36 -19 -37 -12 11 -30 44
46 -23 -16 36 19 37 12 -11 30 -44
47 -22 -15 37 20 38 13 -10 31 -43
44 -25 -18 34 17 35 10 -13 28 -46