Помогите пожалуйста, очень нужно

[azAzzzz]

ВЕТВЛЕНИЯ (УСЛОВНЫЕ КОНСТРУКЦИИ)
7. В некотором учебном заведении действуют следующие правила приема. Абитуриенты сдают три экзамена. Если они набирают не менее 13 баллов, то это дает право поступить на дневное отделение, от 10 до 12 – на вечернее, от 8 до 9 – на заочное; ниже 8 баллов означает отказ в приеме на учебу. Написать программу, которая в зависимости от суммы набранных баллов сообщает абитуриенту его права на поступление.
ОПЕРАЦИИ С МАССИВАМИ
37. Удалить из массива ненулевые элементы, передвинув на их место следующие элементы без нарушения порядка их следования. В результате должен получиться массив меньшего размера, не содержащий нулей.
ЛИНЕЙНЫЙ ПОИСК
67. В целочисленном массиве найти наиболее длинную цепочку одинаковых подряд стоящих элементов
и если не сложно
ВЕТВЛЕНИЯ (УСЛОВНЫЕ КОНСТРУКЦИИ)
13. Написать программу, которая по введенному номеру времени года (1 – зима, 2 – весна, 3 – лето, 4 осень) выводит соответствующие этому времени года месяцы
ОПЕРАЦИИ С МАССИВАМИ
43. Все ненулевые элементы матрицы расположить в начале массива и подсчитать их количество.
ЛИНЕЙНЫЙ ПОИСК
73. Найти все числа из массива , встречающихся более чем в одной строке матрицы .

 

[hosm]

ОПЕРАЦИИ С МАССИВАМИ
37. Удалить из массива ненулевые элементы, передвинув на их место следующие элементы без нарушения порядка их следования. В результате должен получиться массив меньшего размера, не содержащий нулей.

 

[azAzzzz]

хы

 

[azAzzzz]

никто не поможет ((((

 

[hosm]

А там всё элементарно, сами могли бы сделать. месяцы, надеюсь, знаете - допишите сами

13. Написать программу, которая по введенному номеру времени года (1 – зима, 2 – весна, 3 – лето, 4 осень) выводит соответствующие этому времени года месяцы

Sub Task13()
Sezon = InputBox("Введите номер времени года (1 – зима, 2 – весна, 3 – лето, 4 - осень)") 
Select Case Sezon 
case "1"
MsgBox ("Дек Янв Фев")
case "2"
MsgBox ("...")
case "3"
MsgBox ("...")
case "4"
MsgBox ("...")
End Select
end sub

 

[azAzzzz]

точно ) а остальные? )

 

[azAzzzz]

:KillMe: