Найти максимальный элемент массива и его индекс - QBasic

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

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

1.Дан массив R(N,M).построить вектор из элементов матрицы,удовлетворяющей условию R(I,J)<C,где C-константа.В полученном векторе найти максимальный элемент и его индекс. 2.Дан массив R(N,M).найти все его стоки,произведение элементов которых положительно,и напечатать их номера,подсчитать общее количество таких строк.найти максимальное значение из полученных произведений.

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

textual
Листинг программы
  1. CLS
  2. INPUT "KOLI4ESTVO STROK V MASSIVE ="; N
  3. INPUT "KOLI4ESTVO STOLBCOV V MASSIVE ="; M
  4. DIM R(N, M)
  5. FOR I = 1 TO N
  6.  FOR J = 1 TO M
  7. INPUT "VVEDITE ELEMENT MASSIVA:"; R(I, J)
  8. NEXT
  9. NEXT
  10. PRINT "MASSIV:"
  11. FOR I = 1 TO N
  12.  FOR J = 1 TO M
  13. PRINT R(I, J);
  14. NEXT
  15. PRINT
  16. NEXT
  17. DIM P(N)
  18. FOR I = 1 TO N
  19. P(I) = 1
  20. NEXT
  21. PRINT "STROKI,PROIZVEDENIE KOTORIH POLOJITELNO:"
  22. FOR I = 1 TO N
  23.  FOR J = 1 TO M
  24. P(I) = P(I) * R(I, J)
  25. NEXT
  26. IF P(I) > 0 THEN PRINT I: S = S + 1
  27. NEXT
  28. PRINT "KOLI4ESTVO ETIH STROK ="; S
  29. MAX = P(1)
  30. FOR I = 1 TO N - 1
  31. IF MAX < P(I + 1) THEN MAX = P(I + 1)
  32. NEXT
  33. PRINT "MAKSIMALNOE PROIZVEDENIE="; MAX
  34. END

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

  1. В первой строке кода пользователю предлагается ввести количество строк и столбцов массива.
  2. Затем две строки используются для ввода элементов массива.
  3. Далее выводится сам массив.
  4. Следующие две строки кода инициализируют переменную P, которая будет использоваться для хранения произведений элементов массива.
  5. Затем выводится информация о строках, произведение которых положительно.
  6. Переменная S используется для подсчета количества таких строк.
  7. Максимальное значение P ищется в цикле, начиная со второй строки.
  8. Наконец, выводится максимальное произведение.

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


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

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

8   голосов , оценка 4 из 5

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

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

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