Чтобы успешно выполнить какую-либо работу или решение задачи нужно передать исполнителю полный набор исходных данных.
http://www.industrialnets.ru/files/misc/ascii.pdf
Нос 15,7,4
Рот8,10,8
Глаза8,11,7,0
Брови4,8,5,9
Public Function UserFunction(items As Variant) As Integer
Dim result As Integer
For Each Item In items
If Item < 0 Then
result = result + (Item * Item)
End If
Next Item
UserFunction = result
End Function
Этот код вставляется как новый модуль, Alt+F11, Insert -> Module. После нужно сохранить книгу с поддержкой макросов, это обязательно.
Пример использования ниже:
begin
var N := ReadInteger();
var a := ReadArrReal(N);
Swap(a[a.IndexMax], a[a.IndexMin]);
a.Println
end.