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

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.

Answer 2

PROGRAM A22;
const
    max = 42;
var
    vt:array[1..max]of byte;
    i,n:byte;
    x:integer;

BEGIN
  n := max;
  writeln('Массив из n элементов будет задан случайными числами на интервале [0,3].');
  readln(n);  
  write('Введите число которое будет добавлено к каждому элементу.');
  readln(x);  

  writeln('Начальный Массив' );
  randomize;
  for i:=1 to n do begin
    vt[i]:=random(1,3);
    write(vt[i], ' ');
  end;
  writeln(' ');
 
  writeln('Массив c результатом' );
  for i:=1 to n do begin
    write(vt[i]+x, ' ');
  end;
  writeln(' ');
 
END.

---