9 Декабрь 2009

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

Задачи |  Таги: , , ,

Вычислить сумму элементов матрицы В(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 "Сумма элементов матрицы, стоящих над главной диагональю равна"; m
End Sub

Запись опубликована on 09.12.2009 at 9:00 и размещена в рубрике: Задачи. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.



Оставить комментарий

Я не робот.