Код программы
Dim Massiv() As Single, Size As Intege
Private Sub cmdVvodMassiva_Click(
Dim i, Maximus As Intege
Size = Val(txtSize.Text
ReDim Massiv(Size
i =
Do While i <= Siz
Massiv(i) = Val(InputBox("Массив(" + Str(i) + ")=","Ввод массива")
lstMassiv.AddItem "A(" + Str(i) + ")=" + Str(Massiv(i)
i = i +
Loo
End Su
Private Sub cmdMaxElement_Click(
Dim i As Intege
Maximus = Massiv(1
i =
Do Until i > Siz
If Massiv(i) > Max Then Max = Massiv(i
i = i +
Loo
txtMax.Text = Str(Max
End Su
1.Измените циклы в программе первый сделайте используя ключевое слово
«Until» (с постусловием), а второй с ключевым словом «While» (с
предусловием)
2.Измените код программы так, что бы она искала минимальный элемент в
массиве.