Question

HELP

информатика

PascalABC.NET

Уровень A. а) Заполните все элементы массива значением X , введённым с клавиатуры.
б) Заполните массив первыми N натуральными числами, начиная с X (значение X введите с клавиатуры).

Answer 1

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

begin
  var n:=ReadInteger('Количество элементов массива:');
  var x:=ReadReal('Введите значение Х для заполнения массива:');
  var a:=ArrFill(n,x); a.Println
end.

Пример
Количество элементов массива: 13
Введите значение Х для заполнения массива: 2.5
2.5 2.5 2.5 2.5 2.5 2.5 2.5 2.5 2.5 2.5 2.5 2.5 2.5

begin
  var n:=ReadInteger('Количество элементов массива:');
  var x:=ReadInteger('Введите начальное значение Х для заполнения массива:');
  var a:=ArrGen(n,i->i+x); a.Println
end.

Пример
Количество элементов массива: 15
Введите начальное значение Х для заполнения массива: 8
8 9 10 11 12 13 14 15 16 17 18 19 20 21 22