| Код |
Dim d(999) As Integer ' 999 не предел, установи сам сколько хочешь, но не более 32000
n = InputBox("Введите размер матрицы (массива)", "Размер массива") ' можешь сделать другой ввод значений
For i = 1 To n ' запускаем цикл ввода данных
d(i) = InputBox("Введите " & i & " элемент матрицы", "") ' можешь сделать другой ввод значений
Next
For i = 1 To n ' делаем проверку значений на условие
If d(i) <= 15 Then ' если меньше или равно, значит возводим в квадрат
d(i) = d(i) ^ 2
ElseIf d(i) > 15 Then
d(i) = 0
End If
Next
' сортировка
Min = d(1) ' устанавливаем начальный минимум
'для сортировки используем, метод пузырька
For i = 1 To n
For j = 1 To n
If d(i) < d(j) Then
k = d(i)
d(i) = d(j)
d(j) = k
End If
Next
Next
For i = 1 To n ' вывод значений
If Text1 <> "" Then ' если текстовое поле не пусто, то делаем пробел в текстовом поле и добавляем элемент матрицы
Text1 = Text1 & " " & d(i)
Else ' иначе не делаем пробе и втсавляем занчение в начало
Text1 = d(i)
End If
Next
|
|
тока 
