Найти максимальный элемент массива и его индекс - QBasic
Формулировка задачи:
1.Дан массив R(N,M).построить вектор из элементов матрицы,удовлетворяющей условию R(I,J)<C,где C-константа.В полученном векторе найти максимальный элемент и его индекс.
2.Дан массив R(N,M).найти все его стоки,произведение элементов которых положительно,и напечатать их номера,подсчитать общее количество таких строк.найти максимальное значение из полученных произведений.
Решение задачи: «Найти максимальный элемент массива и его индекс»
textual
Листинг программы
- CLS
- INPUT "KOLI4ESTVO STROK V MASSIVE ="; N
- INPUT "KOLI4ESTVO STOLBCOV V MASSIVE ="; M
- DIM R(N, M)
- FOR I = 1 TO N
- FOR J = 1 TO M
- INPUT "VVEDITE ELEMENT MASSIVA:"; R(I, J)
- NEXT
- NEXT
- PRINT "MASSIV:"
- FOR I = 1 TO N
- FOR J = 1 TO M
- PRINT R(I, J);
- NEXT
- NEXT
- DIM P(N)
- FOR I = 1 TO N
- P(I) = 1
- NEXT
- PRINT "STROKI,PROIZVEDENIE KOTORIH POLOJITELNO:"
- FOR I = 1 TO N
- FOR J = 1 TO M
- P(I) = P(I) * R(I, J)
- NEXT
- IF P(I) > 0 THEN PRINT I: S = S + 1
- NEXT
- PRINT "KOLI4ESTVO ETIH STROK ="; S
- MAX = P(1)
- FOR I = 1 TO N - 1
- IF MAX < P(I + 1) THEN MAX = P(I + 1)
- NEXT
- PRINT "MAKSIMALNOE PROIZVEDENIE="; MAX
- END
Объяснение кода листинга программы
- В первой строке кода пользователю предлагается ввести количество строк и столбцов массива.
- Затем две строки используются для ввода элементов массива.
- Далее выводится сам массив.
- Следующие две строки кода инициализируют переменную P, которая будет использоваться для хранения произведений элементов массива.
- Затем выводится информация о строках, произведение которых положительно.
- Переменная S используется для подсчета количества таких строк.
- Максимальное значение P ищется в цикле, начиная со второй строки.
- Наконец, выводится максимальное произведение.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д