Найти количество положительных чисел среди элементов, лежащих ниже побочной диагонали - VB

Узнай цену своей работы

Формулировка задачи:

Листинг программы
  1. Private Sub Command1_Click()
  2. Dim A() As Single, N As Integer
  3. Dim I%, J%, K%, As Single
  4. Dim T As Integer
  5. N = InputBox("введите число строк")
  6. ReDim A(1 To N, 1 To N)
  7. K = 0: Randomize
  8. Fl1.Rows = N + 1: Fl1.Cols = N + 1
  9. For I = 1 To N
  10. For J = 1 To N
  11. A(I, J) = Round(Rnd * 100 - 50)
  12. If A(I, J) > 0 And I + J > N + 1 Then K = A(I, J)
  13. Fl1.TextMatrix(I, J) = A(I, J)
  14. Next J, I
  15. Picture1.Cls
  16. Picture1.Print " матрица"
  17. For I = 1 To N
  18. For J = 1 To N
  19. List1(J - 1).List(I - 1) = A(I, J)
  20. Form1.Picture1.Print " "; Format(A(I, J), "###0");
  21. Next J
  22. Picture1.Print
  23. Next I
  24. MsgBox "Кол-во полож. чисел" & N, vbMsgBoxRtlReading + VbInmormation, "прочти"
  25. Text1.Text = ""
  26. For I = 1 To N
  27. T = ""
  28. For J = 1 To N
  29. T = T + Str(A(I, J)) & " "
  30. Next J
  31. Text1.Text = Text1.Text & T & vbCrLf
  32. Next I
  33. Label3.Visible = True
  34. Label3.Caption = "кол-во полож. чисел" & N
  35. End Sub
А вот и задание.Ввести квадратную матрицу целых чисел. Найти кол-во полож. чисел среди эл-ов, лежащих ниже побочной диагонали. Помогите, плиииз)

Решение задачи: «Найти количество положительных чисел среди элементов, лежащих ниже побочной диагонали»

textual
Листинг программы
  1. Fl1.Rows = N + 1: Fl1.Cols = N + 1

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 4.1 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы