Option Explicit

==================================================

' Работа с едномерен масив

Dim i%, M%

Dim a() As Double

ReDim a(1 To M)

For i = 1 To M

a(i) = ActiveSheet.Cells(1, i)

Next i
' a) сума на всички елементи в масива
Dim S As Double

S = 0

S = S + a(i)

Next i

MsgBox ("Сума S=" & S)

P = 1

If a(i) <> 0 Then P = P * a(i)

Next i

MsgBox ("Произведение P=" & P)

Sp = 0: Np = 0

For i = 1 To M

If a(i) > 0 Then Sp = Sp + a(i): Np = Np + 1

Next i
If Np > 0 Then

MsgBox ("Средно аритметично: " & Sp / Np)

Else

MsgBox ("Няма положителни елементи")

' г) максимум на елементите в масива

Max = a(1): imax = 1

For i = 2 To M

If a(i) > Max Then Max = a(i): imax = i

Next i

MsgBox ("Максимум Max = A(" & imax & ")= " & Max)

Min = a(1): imin = 1

For i = 2 To M

If a(i) < Min Then Min = a(i): imin = i

Next i

MsgBox ("Минимум Min = A(" & imin & ")= " & Min)

For j = 1 To M - i

If a(j) > a(j + 1) Then

T = a(j): a(j) = a(j + 1): a(j + 1) = T

End If

Next j

ActiveSheet.Cells(2, i) = a(i)

Next

End Sub

' Скаларно произведение на два вектора

Dim i%, M%

Dim a() As Double, b() As Double, S As Double

ReDim a(1 To M), b(1 To M)

For i = 1 To M

a(i) = ActiveSheet.Cells(1, i)

b(i) = ActiveSheet.Cells(2, i)

Next i
S = 0

For i = 1 To M

S = S + a(i) * b(i)

Next i
MsgBox ("Скаларно произведение S=" & S)

End Sub

Dim i%, M%, a#, b#, c#, imax%

Dim X() As Double, Y() As Double, P() As Double, PMax#
M = InputBox("M=")

ReDim X(1 To M), Y(1 To M), P(1 To M)

For i = 1 To M

X(i) = ActiveSheet.Cells(1, i)

Y(i) = ActiveSheet.Cells(2, i)

Next i
For i = 1 To M - 2

a = Sqr((X(i) - X(i + 1)) ^ 2 + (Y(i) - Y(i + 1)) ^ 2)

b = Sqr((X(i + 1) - X(i + 2)) ^ 2 + (Y(i + 1) - Y(i + 2)) ^ 2)

c = Sqr((X(i) - X(i + 2)) ^ 2 + (Y(i) - Y(i + 2)) ^ 2)

P(i) = a + b + c

Next i
PMax = P(1): imax = 1

For i = 2 To M - 2

If PMax < P(i) Then PMax = P(i): imax = i

Next
MsgBox ("Максимален периметър Max = P(" & imax & ")= " & PMax)