Заполнить массив нулями, кроме первого и последнего - вопрос №7503414 от Askarabdullaev 17.06.2020 23:03

Question

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

Askarabdullaev · Answer

// 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