Question

массив из n элементов задан случайными числами на интервале [0,3] прибавьте к каждому элементу число, введенное с клавиатуры

Answer 1

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

begin
  var a:=ArrRandom(ReadInteger('n='),0,3); a.Println;
  var k:=ReadInteger('Введите добавляемое значение:');
  a.Transform(t->t+k); a.Println
end.