Массив а[1..10] зпполните случайными числами в диапазоне от 1 до 20. все его элементв...

Question

Массив а[1..10] зпполните случайными числами в диапазоне от 1 до 20. все его элементв увеличить на число b

Answer 1

var

  a: array[1..10] of integer;

  b: integer;

   

begin

  randomize;

   

  write('Введите b: ');

  readln(b);

  writeln();

   

  writeln('Массив:');

   

  for var i := 1 to 10 do

  begin

     a[i] := random(1, 20) + b;

     writeln(i, ') ', a[i]);    

  end;

end.

---