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

  • Автор темы azAzzzz
  • Дата начала
A

azAzzzz

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

hosm

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

hosm

* so what *
18.05.2009
2 442
6
#5
А там всё элементарно, сами могли бы сделать. месяцы, надеюсь, знаете - допишите сами
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