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

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

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

Дана квадратная матрица размерностью mxm. Построить вектор из положительных элементов на главной диагонали. Найти максимальный элемент среди элементов, расположенных ниже главной диагонали. помогите,а то у меня фигня какая-то выходит(пока что только вектор пыталась высчитать) вот такую программу сделала:
Листинг программы
  1. CLS
  2. s = 0
  3. INPUT "vvedite kolichestvo strok i stolbcov M ", m
  4. DIM a(m, m)
  5. FOR i = 1 TO m
  6. FOR j = 1 TO m
  7. a(i, j) = INT(RND * 50 - 25)
  8. NEXT
  9. NEXT
  10. PRINT "matrica "
  11. FOR i = 1 TO m
  12. FOR j = 1 TO m
  13. PRINT a(i, j);
  14. NEXT
  15. PRINT
  16. NEXT
  17. PRINT
  18. PRINT "____________"
  19. PRINT "vektor"
  20. FOR i = 1 TO m
  21. IF a(i, i) > 0 THEN
  22. s = s + 1
  23. END IF
  24. NEXT i
  25. DIM b(s)
  26. FOR l = 1 TO s
  27. FOR i = 1 TO m
  28. IF a(i, i) > 0 THEN
  29. b(l) = a(i, i)
  30. PRINT b(i)
  31. END IF
  32. NEXT i
  33. NEXT l
  34. END
Тему можно удалять.Я сделала программу.

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

textual
Листинг программы
  1. max=a(1,1)
  2. FOR i=2 TO m
  3. IF a(i,i)>max THEN max=a(i,i)
  4. NEXT

Объяснение кода листинга программы

  1. max - это переменная, которая инициализируется значением элемента матрицы a(1,1).
  2. Затем происходит цикл от 2 до m, где m - это количество строк в матрице.
  3. Внутри цикла проверяется каждый элемент матрицы a(i,i), где i - это номер строки.
  4. Если значение элемента a(i,i) больше значения переменной max, то значение переменной max обновляется значением элемента a(i,i).
  5. После завершения цикла, значение переменной max будет содержать максимальное значение из элементов матрицы, расположенных ниже главной диагонали.

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


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

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

15   голосов , оценка 3.933 из 5

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

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

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