.Заполнить массив нулями, не считая первого и последнего частей, которые обязаны быть

.Заполнить массив нулями, не считая первого и последнего элементов, которые обязаны быть одинаковы единице.

Задать свой вопрос
1 ответ
// PascalABC.NET 3.2, сборка 1425 от 22.04.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var a:=ArrFill(ReadInteger('n='),0);
  a[0]:=1; a[a.Length-1]:=1; a.Println;
end.

Пример
n= 10
1 0 0 0 0 0 0 0 0 1
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт