[SRC VB]
Sub Задание2()
Dim j() As String
Dim KP() As Single
Dim KM() As Single
Dim S() As Double  'может не хватать размерности, если не Double
Dim S1() As Double
Dim I, N As Integer
N = InputBox("Введетите количество элементов массива")
ReDim j(N) As String
ReDim KP(N) As Single
ReDim KM(N) As Single
ReDim S(N) As Double
ReDim S1(N) As Double
Debug.Print "Город", "Кол-во продан-", "Кол-во", "Сумма от про-"
Debug.Print " ", "ных квартир", "кв.м", "дажи тыс.руб."
For I =  1  To N                      ''ввод инфы
j(I) = InputBox("Введите название города")
KP(I) = InputBox("Введите кол-во проданных квартир")
KM(I) = InputBox("Введите кол-во кв")
S(I) = InputBox("Введите сумму от продажи")
Debug.Print j(I), KP(I), KM(I), S(I)

Next I
Debug.Print "Город", "Кол-во продан-", "Кол-во", "Средняя стоимость"
Debug.Print " ", "ных квартир", "кв.м", "1 квартиры"
For I =  1  To N                      ''расчет
S1(I) = S(I) / KP(I)

Debug.Print j(I), KP(I), KM(I), S1(I)
Next I
End Sub