Написать программу находящую в массиве 4-х строк строку максимальной длины

@PSQ · Регистрация: 31.03.2012

здравствуйте, помогите пожалуйста с задачкой
очень нужно...

написать программу, находящую в массиве 4-х строк строку максимальной длины. Строки вводятся в элементы массива пользователем после запуска программы результат выводится в окне сообщения в формате: "Строка максимальной длины: sn", где sn - найденная строка.

Добавлено через 1 час 9 минут
у меня так получилось

Visual Basic

Sub ekz_18v()
Dim mass(3), p As String
Dim i, sn As Integer
sn = 0
mass(0) = InputBox("введите строку массива1:")
mass(1) = InputBox("введите строку массива2:")
mass(2) = InputBox("введите строку массива3:")
mass(3) = InputBox("введите строку массива4:")
For i = 0 To 3
If Len(mass(i)) > sn Then
                sn = Len(mass(i))
                p = mass(i)
            End If
        Next i
MsgBox sn & " " & p
End Sub

@Catstail · 16.05.2012, 17:20

Все верно...

@Catstail Модератор 27499 / 14532 / 2846 Регистрация: 12.02.2012 Сообщений: 23,894 Записей в блоге: 4
	16.05.2012, 17:20	2
	Все верно... 0

Опции темы