Help информатика pascalabc.net уровень a. а) заполните все элементы массива значением x , введённым с клавиатуры. б) заполните массив первыми n натуральными числами, начиная с x (значение x введите с клавиатуры).
// 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
// Внимание! Если программа не работает, обновите версию!
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