Решаем задачи Абрамян на Visual Basic. Minmax8

Minmax8. Дано целое число $$N$$ и набор из $$N$$ целых чисел. Найти номера первого и последнего минимального элемента из данного набора и вывести их в указанном порядке.

Решение:

Module Minmax8
 
    Sub Main()        
        Dim i, N, Ni, Min1, Min2, Min1Num, Min2Num As Integer
        Console.Write("N:")
        N = Console.ReadLine()        
 
        For i = 1 To N
            Console.Write("{0} :", i)
            Ni = Console.ReadLine()
            If i = 1 Then
                Min1 = Ni
                Min2 = Ni
                Min1Num = i
                Min2Num = i
            End If
            If Ni < Min1 Then
                Min1 = Ni
                Min1Num = i
            End If
            If Ni <= Min2 Then
                Min2 = Ni
                Min2Num = i
            End If        
        Next
 
        Console.WriteLine("{0}  : {1}", Min1Num, Min2Num)
    End Sub
End Module

Module Minmax8

Sub Main()

Dim i, N, Ni, Min1, Min2, Min1Num, Min2Num As Integer

Console.Write("N:")

N = Console.ReadLine()

For i = 1 To N

Console.Write("{0} :", i)

Ni = Console.ReadLine()

If i = 1 Then

Min1 = Ni

Min2 = Ni

Min1Num = i

Min2Num = i

End If

If Ni < Min1 Then

Min1 = Ni

Min1Num = i

End If

If Ni <= Min2 Then

Min2 = Ni

Min2Num = i

End If

Console.WriteLine("{0} : {1}", Min1Num, Min2Num)

End Sub

End Module

Другие задачи из раздела Minmax можно посмотреть здесь.

Решаем задачи Абрамян на Visual Basic. Minmax8

Комментарии:

Добавить комментарий Отменить ответ