Cоставьте программу уменьшения значения всех элементов массива ** 4

Question

Cоставьте программу уменьшения значения всех элементов массива на 4

Answer 1

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

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  a.Transform(t->t-4); a.Println
end.

Пример
n= 13
-42 -19 36 37 -26 -28 12 12 40 50 24 -8 5
-46 -23 32 33 -30 -32 8 8 36 46 20 -12 1

Answer 2

Program MASSX;

var
  mass : array [0..10] of integer;
  i, b : integer;

begin
  b := 10;
  randomize;
 
  for i := 1 to b do
    begin
      mass[i] := random(10, 110);
      mass[i] := mass[i] - 4;
      writeln(mass[i]);
    end;
end.