Определить минимальный элемент массива и количество элементов, равных минимальному - QBasic
Формулировка задачи:
Помогите, пожалуйста с решением задачи:
А) В заданном массиве A(120) определить минимальный элемент и количество элементов равных минимальному.
В) Дана матрица X(NxM). Получить последовательность у1,у2, .... уn, каждый элемент который равен количеству отрицательных элементов в соответствующей строке массива.
Решение задачи: «Определить минимальный элемент массива и количество элементов, равных минимальному»
textual
Листинг программы
- CLS
- DIM A(120) AS INTEGER
- RANDOMIZE TIMER
- FOR i = 0 TO 120
- A(i) = 60 * RND
- NEXT i
- min = 20
- FOR i = 0 TO 120
- IF min > A(i) THEN min = A(i)
- NEXT i
- n = 0
- FOR i = 0 TO 120
- IF A(i) = min THEN n = n + 1
- NEXT i
- PRINT "Min = "; min
- PRINT "N = "; n
- END
Объяснение кода листинга программы
- Объявляется массив A(120) типа INTEGER и инициализируется случайными значениями от 0 до 60 с помощью функции RND и оператора RANDOMIZE TIMER.
- Переменная min инициализируется значением 20.
- Цикл FOR проходит по всем элементам массива A(120) и сравнивает текущий элемент с переменной min. Если текущий элемент меньше min, то min обновляется значением текущего элемента.
- Переменная n инициализируется значением 0.
- Цикл FOR проходит по всем элементам массива A(120) и сравнивает каждый элемент с переменной min. Если элементы равны, то переменная n увеличивается на 1.
- Выводятся значения переменных min и n с помощью функции PRINT.
- Код заканчивается END.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д