Задача 1 Приведена программа, записанная на пяти языках программирования.Было проведено 9 запусков программы, при которых в качестве значений переменных x и y вводились следующие пары чисел: (14; 13), (7; -3), (3; 0), (17; 12), (20; -2), (1; 7), (11; 12), (10; 5), (5; 8). Сколько было запусков, при которых программа напечатала «НЕТ»?
Sub Zadanie()
ReDim C(5, 6)
k_pos = 0
mini = LBound(C, 1)
minj = LBound(C, 2)
For i = LBound(C, 1) To UBound(C, 1)
For j = LBound(C, 2) To UBound(C, 2)
C(i, j) = Round(Rnd * 10)
if C(i, j) > 0 then k_pos = k_pos + 1
if C(i, j) < C(mini, minj) then
mini = i
minj = j
end if
Next
Next
MsgBox "min C(" & mini & ", " & minj & ")=" & C(mini, minj) & vbNewLine & "c>0: " & k_pos
End Sub
Call Zadanie()