var n:integer;
begin
writeln ("введите число N");
read(n);
if n>0 then n:=n+1;
if n<0 then n:=n-1;
writeln (n);
end.
<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var imin:=a.IndexMin; a:=(a?[:imin]+Arr(0)+a?[imin:]).ToArray;
var imax:=a.IndexMax; a:=(a?[:imax+1]+Arr(0)+a?[imax+1:]).ToArray;
a.Println
end.
<u>Пример</u>
n= 15
-32 11 7 8 -25 42 39 18 25 -33 -4 10 41 25 -36
-32 11 7 8 -25 42 0 39 18 25 -33 -4 10 41 25 0 -36
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. После нужно сохранить книгу с поддержкой макросов, это обязательно.
Пример использования ниже:
Жесткие диски, флеш карты, касеты.
Значит будет так 35.56×1200×35.56×1200×24=43701590016 бит
Размер изображения в дюймах × разрешающую способность сканера × глубину цвета
Ps dpi означает dot per inch (точек на дюйм)