Для заданного натурального N найти сумму (другая задача)

[Bombastick]

на словах обьяснить попробую ибо не получается записать,1) Для заданного натурального N найти сумму y=(знак суммы), сверху над знаком N, снизу i=1, слева i в степени 2.
2)Определить количество инверсий в одномерном массиве X[1..20] (т.е. таких пар элементов, в которых большее число находится слева от меньшего: X[I] > X[J] при I < J).
3)Определить, есть ли в вещественной матрице элемент, равный данному числу x.
4)В заданном предложении переставить местами первое и последнее слово.
Заранее благодарю. Это зачетные работы, из 10 только 4 не сделал ума не хватает.

[doober]

Могу в очередной раз поучиться,но не даром.Ася в профиле.

[Bombastick]

Сомневаюсь что это не кидалово=)

[Bombastick]

Первую и третью задачи осилил. Осталась вторая и четвертая если действительно помогут в долгу не останусь

[IgorGO]

Function ReplFirstLast(s As String) As String
  Dim rs As String, i As Long
  rs = ""
  For i = 1 To UBound(Split(s, " ")) - 1
    rs = rs & Split(s, " ")(i) & " "
  Next
  ReplFirstLast = Split(s, " ")(UBound(Split(s, " "))) & " " & rs & Split(s, " ")(0)
End Function


Function Calc12(rg As Range) As Long
  Dim i As Long, ar(1 To 20), c As Long
  For i = 1 To 20
   ar(i) = rg.Cells(i).Value
  Next
  c = 0
  For i = 1 To 19
    If ar(i) < ar(i + 1) Then c = c + 1
  Next
  Calc12 = c
End Function

[Bombastick]

препод не понял видимо очень закручено)) осталась четвертая

[IgorGO]

Function Calc12(rg As Range) As Long - это задача2
в качестве параметра она получает массив из 20 ячеек, возвращает количество случаев описанных заданием

Function ReplFirstLast(s As String) As String - это задача4
параметром служит исходное предложение, возвращает предложение в котором переставлены местами первое и последнее слово.

[Bombastick]

Function Calc12(rg As Range) As Long
Dim i As Long, ar(1 To 20), c As Long
For i = 1 To 20
ar(i) = rg.Cells(i).Value
Next <------ тут что то должно быть вроде Next I
c = 0
For i = 1 To 19
If ar(i) < ar(i + 1) Then c = c + 1
Next <---- и тут вроде Next I
Calc12 = c
End Sub <------- можно ли так?
у нас VBA в экселе и видимо мы такие неудачники что многих команд ваше не встречали.

[IgorGO]

Calc12 - обьявлена как функция: Function Calc12(rg As Range) As Long
соответственно заканчивается обьявление End Function

можно обьявить ее как процедуру:
Sub Calc12(rg As Range)
Dim i As Long, ar(1 To 20), c As Long
For i = 1 To 20
ar(i) = rg.Cells(i).Value
Next
c = 0
For i = 1 To 19
If ar(i) < ar(i + 1) Then c = c + 1
Next
Msgbox c
End Sub
соответсвенно убрал обьявление типа возвращаемого результата, и вместо
Calc12 = c (присвоить функции результат вычислений)
теперь
Msgbox c (сообщение о результате)

[MCH]

можно решить и без VBA
2я:

=СУММПРОИЗВ(Ч(A1:A19>A2:A20))

4я, формула массива:

=ПРАВСИМВ(E1;ДЛСТР(E1)-МАКС(ЕСЛИ(ПСТР(E1;СТРОКА($1:$255);1)=" ";СТРОКА($1:$255))))&ПСТР(E1;ПОИСК(" ";E1);МАКС(ЕСЛИ(ПСТР(E1;СТРОКА($1:$255);1)=" ";СТРОКА($1:$255)))-ПОИСК(" ";E1)+1)&ЛЕВСИМВ(E1;ПОИСК(" ";E1)-1)