Блок-схема к задаче нахождения двух наибольших чисел последовательности - Visual Basic .NET - Ответ 7574947

    Sub Main()
        Dim x, Max1, Max2 As Integer
        Dim i As Integer = 0
        Console.WriteLine("Вводите числа последовательности (0 - конец ввода): ")
        Do
            Console.Write("> ")
            Do While Not Integer.TryParse(Console.ReadLine(), x)
                Console.Write("Ошибка! Введите число: ")
            Loop
            If x <> 0 Then
                If i = 0 Or x > Max1 Then
                    Max2 = Max1
                    Max1 = x
                ElseIf x > Max2 Then
                    Max2 = x
                End If
                i += 1
            End If
        Loop Until x = 0
        If i < 2 Then
            Console.WriteLine("Последовательность содержит меньше 2 чисел. ")
        Else
            Console.WriteLine("Два наибольших числа: {0}; {1}", Max1, Max2)
        End If
        Console.Write("Для завершения работы нажмите любую клавишу... ")
        Console.ReadKey()
    End Sub