Задание по стажерской практике

[Rudimo]

Через несколько дней госы, надо успеть сделать и сдать отчет. Почти все задания сделал. Вот не пойму несколько заданий, программировать вообще плохо умею, по идее коды не длинные должны быть. Может кто поможет. Задачи в Visual Basic.

1) Написать программу, корректно обрабатывающую ввод: название города по шаблону ( г. Название )
*я так понял чтобы писало ( г. и_тут_текст ) и менно так, чтобы под другому не ввели фигню всякую! Мне что то про Microsoft Masked Edit Control говорили.

2)Имеется массив оценки, состоящие из N (N>2) судейских оценок (каждая оценка положительная). Убрать самую большую и самую маленькую, найти среднее арифметическое.

3)Написать программу, которая проверяет, является ли введенное пользователем целое число четным. Ниже приведен рекомендуемый вид экрана программы во время выполнения программы.
Введите целое число и нажмите (ENTER) 23
Число 23 - нечетное.

Вот прикреплю примерную работу одногруппника, может поможет. Там скрины сделать бы.

Плиз, хотя бы коды примерные напишите, я уже там попробую разобраться.

Третье сделал сам, первое тоже почти. Помогите пожалуйста со вторым.

[s-andriano]

Решается в один проход:
- вычисляется сумма всех,
- находится минимум,
- находится максимум.
После чего из суммы вычитается максимум и минимум и остаток делится на N-2 - это и будет среднее арифметическое оставшихся.

[Rudimo]

А можно плиз код на VB второго задания

[Rudimo]

Все, спасибо, сделал сам.

Private Sub Form_Load()
Dim n, i, min, max As Integer
n = InputBox("Введите количество судейских оценок")
ReDim mas(1 To n) As Integer
Label4.Caption = " "
For i = 1 To n
mas(i) = InputBox("Оценка")
Label4.Caption = Label4.Caption + Str(mas(i))
Next i
min = mas(1)
max = mas(1)
Sum = 0
For i = 1 To n
If mas(i) < min Then min = mas(i)
If mas(i) > max Then max = mas(i)
Sum = Sum + mas(i)
Next i
Sum = (Sum - min - max) / (n - 2)
Label1.Caption = min
Label2.Caption = max
Label3.Caption = Sum
End Sub