В одномерном массиве, состоящем из n вещественных элементов , вычислить номер максимального элемента массива; произведение элементов массива расположенных между первым и вторым нулевыми элементами.

Использование готовых классов сводит написание алгоритмов к изучению использования функций...

Смешно. А ничего, что все базовые типы, процедуры ввода-вывода и т.д. в PascalABC.NET - это тоже "готовые классы"?

И второе. Никому не интересно стократное (ибо в каждой задаче) написание одних и тех же алгоритмов поиска максимума, минимума, индекса, сортировки и т.д. Посему это и включено в язык. Заметьте: не во внешнюю подключаемую библиотеку, как в Питоне, например, а именно в ядро. С тем, чтобы не нарушать требований ЕГЭ и олимпиад использовать лишь СТАНДАРТНЫЕ базовые библиотеки.

А алгоритм решения задачи - что же, он прекрасно виден. Что им как ищется, что откуда берется.

"Нормальный" такой вывод через всплывающее окно! Первым выводится некое произведение, чтобы его проверить, надо на бумажке записать. Ну да ладно, это одно число. Далее окно схлопывается, выводится сам массив. Хорошо, проверили все. Теперь окно снова схлопнулось и появилось сообщение о максимальном элементе. Вот только посмотреть уже негде... массив-то исчез с экрана!

Почему Вы не думаете, когда конструируете вывод ?

Внимательность тренируйте. Она очень часто бывает требуема.

Вы считаете это содержательным ответом?

Я считаю с помощью калькулятора и ещё раз говорю что ответ недоступен для изменения и форматирования.

Sub Mass_Task()'Заполнение массива  N = 20  Dim mas(20)  S = ""  Randomize  For i = 1 To N       mas(i) = Round(Rnd(100) * 100)       If mas(i) > 90 Then        mas(i) = 0      End If       S = S + Str(mas(i)) + ","  Next i    'Поиск номера максимального элемента  maxindex = 1 'предполагаем что максимальное число в первом элементе массива  'поиск номеров первого и последующего нулей  indF0 = -1: indL0 = -1    For i = 1 To N      If mas(i) > mas(maxindex) Then         maxindex = i      End If      If mas(i) = 0 Then         If indF0 = -1 Then             indF0 = i         Else             If indL0 = -1 Then              indL0 = i           End If         End If     End If  Next i        'вычисление произведения  multiplication = 1  If (indL0 = -1) Or (indF0 = -1) Or (indF0 + 1 = indL0) Then       MsgBox "Нулей или чисел между нулями нет"  Else       For i = indF0 + 1 To indL0 - 1          multiplication = multiplication * mas(i)    Next i      MsgBox "произведение чисел находящихся между первым и следующим нулями" +   Str(multiplication)  End IfMsgBox "последовательность чисел " + S  + "  номер максимального элемента " + Str(maxindex)  End SubSub test()     Mass_TaskEnd Sub'-Пример--------------------------------------------------------------------Произведение 3532800Последовательность6,58,83,12,84,87,34,68,16,17,0,60,40,64,23,0,0,49,58,42Номер максимального элемента 6