Dim i As Byte, n As Byte, max As Single. Dim imax As String, massiv As String

Dim imax As String, massiv As String

massiv = ""

n = InputBox ("Введите размер массива", "Запрос программы")

ReDim a(n)

'заполнение массива случайными числами

For i = 1 To n

a(i) = 50 - Int (Rnd () * 1000)/10

massiv = massiv & a(i) & Chr (9)

Next i

'инициализация переменных max, imax

max = a(1): imax = "1"

'поиск максимального элемента и его местоположения

For i = 2 To n

If a(i) > max Then

max = a(i)

imax = i

ElseIf a(i) = max Then

imax = imax & ", " & i

End If

Next i

'Команда MsgBox... записывается в редакторе VB в одну строку

MsgBox "Исходный массив:" & Chr (13) & massiv & Chr (13) & "Максимальный элемент = " & max & ", его местоположение (ия) " & imax,, "Решение задачи"

End Sub

Результат выполнения программы:

Пример 3. Дан вещественный массив А (n). Вывести отдельно массив целых положительных чисел (если они есть в исходном массиве) и массив оставшихся.

Решение. Для фиксации текущих значений индексов в новых массивах введем счетчик k для массива B и счетчик q для массива D. При нахождении элементов массива соответствующих первому условию задачи увеличим значение k на единицу и присвоим этот индекс элементу нового массива B и т.п. Аналогичная процедура повторяется и при выполнении второго условия задачи, где формируется еще один массив D.

Sub primer_3()

Не нашли, что искали? Воспользуйтесь поиском: