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

[MCH]

=СУММПРОИЗВ(Ч(A1:A19>A2:A20))
это аналогичная функция той которую предложил IgorGO, только вместо "<" используется ">", как требуется в условиях

но на май взгляд задача несколько сложнее.
формула массива:

=СУММ((A1:A20>ТРАНСП(A1:A20))*(СТРОКА(A1:A20)<ТРАНСП(СТРОКА(A1:A20))))

или соответствующая UDF

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

[Bombastick]

Малость не работает... (2я задача)
Dim x() As Integer
Dim N As Integer
Private Sub CB_1_Click()
Dim A, B, i As Integer
N = Val(TB_N.Value)
ReDim x(1 To N) As Integer
A = -20
B = 30
Randomize
For i = 1 To N
x(i) = Int((B - A) * Rnd + A)
Next i
For i = 1 To N
Cells(i, 1) = x(i)
Next i
End Sub
Первая часть это создание столбца с которым нужно работать.
Private Sub CB_2_Click()
Function Calc123(rg As Range) As Long
Dim i As Long, j As Long, ar(1 To 20), c As Long
For i = 1 To 20
ar(i) = rg.Cells(i).Value
Next i
c = 0
For i = 1 To 19
For j = i + 1 To 20
If ar(i) > ar(j) Then c = c + 1
Next j, i
Calc123 = c
End Function
а во второй части чего то не хватает и не могу додуматься чего.
не получается что то файл закинуть я сфоткал http://s002.radikal.ru/i200/1012/8a/68f1f4c07b76.jpg

[Bombastick]

с 4й задачей такие же проблемы, функция есть вроде все есть, оформить не получается по человечески что бы работала в духе 2й задачи((
P.s работы делаю в 2003 экселе

[Bombastick]

я тут думал добавить окно вывода ко второй части функции, но чет не сработало видимо не то что то о_о

[Bombastick]

или где то ошибка в функции не пойму

[Bombastick]

ааа спасите)) никто не может решить(((

[EducatedFool]

Сообщение от Bombastick

никто не может решить(((

Решить могут многие - но немногие любят студентов-халявщиков...

Что конкретно не получается сделать?

[Bombastick]

Малость не работает... (2я задача)
Dim x() As Integer
Dim N As Integer
Private Sub CB_1_Click()
Dim A, B, i As Integer
N = Val(TB_N.Value)
ReDim x(1 To N) As Integer
A = -20
B = 30
Randomize
For i = 1 To N
x(i) = Int((B - A) * Rnd + A)
Next i
For i = 1 To N
Cells(i, 1) = x(i)
Next i
End Sub

Первая часть это создание столбца с которым нужно работать. Он работает

Private Sub CB_2_Click()
Function Calc123(rg As Range) As Long
Dim i As Long, j As Long, ar(1 To 20), c As Long
For i = 1 To 20
ar(i) = rg.Cells(i).Value
Next i
c = 0
For i = 1 To 19
For j = i + 1 To 20
If ar(i) > ar(j) Then c = c + 1
Next j, i
Calc123 = c
End Function
Во второй функции чего т не хватает не пойму чего. неполучается запустить по клику прогу. но вроде все правильно написанно
не получается что то файл закинуть я сфоткал http://s002.radikal.ru/i200/1012/8a/68f1f4c07b76.jpg