Нужно написать прогу по заданию

[HomerSimpson]

В-общем задание такое и его надо решить. С программированием вообще дела не имел. Вот такое попалось. Может кто поможет?

"Разработать программу обработки последовательности чисел произвольной длины вводимой с клавиатуры. Количество чисел в последовательности вводится в режиме диалога. Задачу выполнить с использованием одномерных массивов и алгоритмов их обработки. И найти максимальный элемент среди чисел, значения которых находятся в пределах от -1,2 до 5,8.

[Amed]

По традиции форума, домашние задания за учащихся не выполняются.

Помогаем только при желании научиться. Какое именно место в задании вызывает затруднения? По порядку.

[HomerSimpson]

С вводом разобрался. Затруднения в том как из введенных чисел выбрать максимальное.
Написал пока это:
Dim MyArray(100) As Double

Sub Кнопка2_Щелкнуть()
Dim I, Count As Integer, E, Pr As Double

Range("A:Z") = ""
Count = CInt(InputBox("Введите количество вводимых элементов", "Ввод данных"))
Cells(1, 1) = "Количество вводимых элементов: " & Count
Cells(2, 1) = "Введенные элементы:"
I = 1
Pr = 1
While I <= Count
E = Val(InputBox("Введите " & I & " элемент:"))
MyArray(I) = E



Wend
Cells(5, 1) = "Максимальное число из вводимых = " &



End Sub

[Amed]

Код: Выделить всё

dim a(50) As Integer
dim max As Integer

max=a(0)

for i=1 to 50
    if max<a(i) then max=a(i)
next i

msgbox max

[HomerSimpson]

Попробовал. Чой-то не получается. Куда подставлять?