Это вот 2 задача.
Код 2 задачаSub InforLabs3()
Cells.Clear
Dim a() As Integer, n, i, g As Single
n = InputBox("Введите размерность массива", "Ввод", "10")
n = Val(n)
ReDim a(n)
s = 0
c = 0
Randomize
For i = 1 To n
a(i) = Int(50 * Rnd())
Worksheets(1).Cells(1, i).Value = a(i)
If a(i) <> 0 And a(i) Mod 3 = 0 And a(i) Mod 5 > 0 Then
s = s + a(i)
c = c + 1
End If
Next i
Worksheets(1).Cells(2, 1).Value = s
Worksheets(1).Cells(3, 1).Value = c
End Sub


Я думаю что 7 тоже самое только вот че:
Код 7 заданияIf a(i) <> 0 And a(i) Mod 7 = 1.2 Or a(i) Mod 7 = 5 Then
s = s + a(i)
c = c + 1
End If

Круто! 2 задания сделано.

А первое задание чет неправильно он там считает, который ты присылал.

Ципихович Эндрю, Выручай)))) С остальными что делать?

Ну да. кол-во так он в цикле, и 56 с 34... их может быть так много??? я просто не понимаю эту тему немного)))

Ды бог с ними с 4,8 хотя б эти сделать!

Да именно так. массив от 1 до 100, тобишь 1,2,3,4,5,6....
Надо вывести количество нечетных, в этом массиве, по придел n, например массив 1 до 100, а я ввожу придел 20.
И он мне должен вывести Ak, кол-во нечетных в массиве от 1 до 20.
Можно выводить через MsgBox

На первую задачу нет рабочего кода.
Я раньше выкладывал, Вы потом изменили... и все. есть только 2,7. остальных нет :(

Я не понимаю какой рабочий код?

А. вот че...
Код для 2
Sub InforLabs3()
Cells.Clear
Dim a() As Integer, n, i, g As Single
n = InputBox("Введите размер массива", "Ввод", "10")
n = Val(n)
ReDim a(n)
s = 0
c = 0
Randomize
For i = 1 To n
a(i) = Int(50 * Rnd())
Worksheets(1).Cells(1, i).Value = a(i)
If a(i) <> 0 And a(i) Mod 3 = 0 And a(i) Mod 5 > 0 Then
s = s + a(i)
c = c + 1
End If
Next i
Worksheets(1).Cells(2, 1).Value = s
Worksheets(1).Cells(3, 1).Value = c
End Sub



Больше ничего нет. ну и 7 по подобию, все.

еще вот какие есть, но это из лекции... я по мойму выкладывал.
Реализовать на языке VBA алгоритм поиска наибольшего элемента последовательности с определением его местонахожденияSub primer()
Const n = 10
Dim N_max As Integer
Dim i As Integer
Dim Max As Single
Dim B(1 To n) As Single
B(1) = 0.2: B(2) = 1.4: B(3) = 0.6
B(4) = 0.121: B(5) = 0.77: B(6) = 9.45
B(7) = 8.21: B(8) = 0.4: B(9) = 0.3
B(10) = 4.11
Max = B(1)
N_max = 1
For i = 2 To n
If B(i) > Max Then
Max = B(i)
N_max = i
End If
Next i
Cells(1,1).Value = “max =”
Cells(1,2).Value = max
Cells(2,1).Value = “N_max =”
Cells(2,2).Value = N_max
End Sub



И вот такая

Постановка задачи ПрежняяOption Base 1
Sub primer()
Dim i As Integer
Dim Max As Single
Dim N_Max As Integer
Dim B As Variant
B = Array(0.1, 1.12, 3.12, 0.45, 101.47, 12.4, 10.12, 10.11, 6.47, 13.4)
Max = B(1)
N_Max = 1
For i = 2 To 10
If B(i) > Max Then
Max = B(i)
N_Max = i
End If
Next i
Cells(1,1).Value = “max =”
Cells(1,2).Value = max
Cells(2,1).Value = “N_max =”
Cells(2,2).Value = N_max
End Sub

Да что нужно то? Объясни по человечески. Я не понимаю, то код то теги... Аська есть? давай там. чтоб форум не захломлять!

автори потом лишь отвечаете в виде МсгБокса:
количество ak последовательности a1,a2,…,an являющихся нечётными числами равно: xxx

Можно через MsgBox/ вот что это.

У меня ничего не получается. С написанием этих лаб. я в скайп постучался. добавь.

Блин! Я ж в 1000 раз говорю! Мне алгоритм нужен как делать, а то я непонимаю. написать хоть б 1 задачу. и объяснить.

А Skype, чтоб проще было... там же есть мгновенные сообщения. Там бы и поговорили.

Гы, Я на словах это уже выучил. На словах алгоритм и у меня есть.)))

Мне кодом надо показать. Вот тут то-то, вот тут так-то, вот так условие...

например:

Массив -> вот так закидываем.
-Тут нужно условие с такой то проверкой.
-тут цикл с увеличением.
На коде объяснить нужно.
Сделайте первое задание хотя б ды на нем и объясните.