Паскаль. С использованием процедуры нужно составить массив, в котором только один элемент не равен нулю. Если можно, то с объяснением, пожалуйста.