Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

Вычислить сумму элементов матрицы В(20,20)


Вычислить сумму элементов матрицы В(20,20)
2009-12-09 07:00 Александр
Вычислить сумму элементов матрицы В(20,20) Private Sub Command1_Click() Dim B(1 To 20, 1 To 20) As Integer m = o For i = 1 To 20 For j = 1 To 20 B(i, j) = Rnd * 20 + 1 If j > i Then m = m + B(i, j) Print B(i, j); Next j Print Next i Print "Сумма элементов матрицы, стоящих над главной диагональю [...]


В избранное