помогите не могу сделать

кратные 7 и принадлежащие промежутку [a,b] (a и b вводить с клавиатуры) 2, вставить число k между всеми соседними элементами, которые образуют пару элементов с одинаковыми знаками (k вводить с клавиатуры) 3, переставить в обратном порядке часть массива между элементами с номерами kl и k2, включая их. Сделать проверку корректности ввода kl и k2, если ввод неправильный, то ничего не делать.

p.s. Чуваки, от этого зависит моя четвертная оценка.

2009 году укомплектовано 6 групп:1 группа раннего возраста, 2 группы компенсирующейнаправленности для детей с фонетико-фонематическиминарушениями, в эти группы зачисляются дети, имеющие различныеречевые нарушения, нуждающиеся в коррекционной помощи, 3группы общеразвивающей направленности.•«Капельки» (от 1,6 до 3 лет) - 22 чел.•«Цветик- семицветик» (младшая группа, от 3 до 4 лет) – 32 чел.•«Ромашки» (средняя группа, от 3 до 4 лет) - 22 чел.•«Подсолнушки» (средняя реч. группа) - 21 чел.•«Колокольчики» (старшая реч. группа) – 26 чел.•«Незабудки» (подготовительная группа) – 32 чел.Задание:1.Представьте данные в табличном виде. 2.Рассчитайте, сколько всего детей посещали детский сад?3.Какова наполняемость ДУ по каждой возрастной группе (в процентах от общегочисла)

порядке все элементы между максимальным и предпоследним
отрицательным элементом.
Помогите, не могу найти предпоследний элемент в массиве

прямоугольный стол так, чтобы они не соприкасались с уже выложенными салфетками. проигрывает тот, кто не сможет сделать ход. кто выигает при правильной игре?

порядок меньше, с вычеркнутым столбцом и строкой на пересечении которых находится наименьшее число из первой матрицы. Я нашел наименьшее число, а как дольше делать понять не могу.
Вот начало самой программы:
Sub laba9()
Dim N As Integer, a() As Integer, i As Byte, j As Byte, min As Integer, l1 As Integer, l2 As Integer
N = Val(InputBox("Введите размерность массива"))
ReDim a(N, N)
Sheets("Лист1").Select
Sheets("Лист1").Range("A1:AAA100").Clear
For i = 1 To N
For j = 1 To N
a(i, j) = Rnd * 100
Cells(i, j) = a(i, j)
Next j
Next i
min = a(1, 1)
l1 = 1
l2 = 2
For i = 1 To N
For j = 1 To N
If a(i, j) < min Then
min = a(i, j)
l1 = i
l2 = j
End If
Next j
Next i
End sub