Page 118 - 4450

У вікні коду, що виникне після подвійного натиснення
на кнопці Пуск записати наступну програму.
Option Base 1
Private Sub Пуск_Click()
Dim A(), B(), S!, m%, n%, i%, j%, t!
m = Val(InputBox("m=", Число рядків m", "Ввести"))
n = Val(InputBox("n=", "Число стовпців n", "Ввести"))
ReDim A(m, n), B(m, n)
Текст1.Text = ""
For i = 1 To m
For j = 1 To n
A(i, j) = 20 * Rnd - 10
Текст1.Text = Текст1.Text & " " & CSng(A(i, j))
Next j: Текст1.Text = Текст1.Text & Chr(13) & Chr(10)
Next i
Текст1.Text = Текст1.Text & " До впорядкування"
For i = 1 To m
For j = 1 To n
For u = 1 To m
For v = 1 To n
If A(i, j) < A(u, v) Then
t = A(i, j): A(i, j) = A(u, v): A(u, v) = t
End If
Next v
Next u
Next j
Next i
Текст2.Text = ""
For i = 1 To m
For j = 1 To n
Текст2.Text = Текст2.Text & " " & CSng(A(i, j))
Next j: Текст2.Text = Текст2.Text & Chr(13) & Chr(10)
Next i
S = 0
For i = 1 To m
For j = 1 To n
If A(i, j) > 0 Then S = S + A(i, j)
Next j, i
Текст2.Text = Текст2.Text & " Після впорядкування"
MsgBox "Сума позитивних елементів S=" & S

116