Определить минимальный элемент массива и количество элементов, равных минимальному - QBasic

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

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

Помогите, пожалуйста с решением задачи: А) В заданном массиве A(120) определить минимальный элемент и количество элементов равных минимальному. В) Дана матрица X(NxM). Получить последовательность у1,у2, .... уn, каждый элемент который равен количеству отрицательных элементов в соответствующей строке массива.

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

textual
Листинг программы
  1. CLS
  2. DIM A(120) AS INTEGER
  3. RANDOMIZE TIMER
  4.  
  5. FOR i = 0 TO 120
  6.    A(i) = 60 * RND
  7. NEXT i
  8.  
  9. min = 20
  10.  
  11. FOR i = 0 TO 120
  12.    IF min > A(i) THEN min = A(i)
  13. NEXT i
  14.  
  15. n = 0
  16.  
  17. FOR i = 0 TO 120
  18.    IF A(i) = min THEN n = n + 1
  19. NEXT i
  20.  
  21. PRINT "Min = "; min
  22. PRINT "N = "; n
  23. END

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

  1. Объявляется массив A(120) типа INTEGER и инициализируется случайными значениями от 0 до 60 с помощью функции RND и оператора RANDOMIZE TIMER.
  2. Переменная min инициализируется значением 20.
  3. Цикл FOR проходит по всем элементам массива A(120) и сравнивает текущий элемент с переменной min. Если текущий элемент меньше min, то min обновляется значением текущего элемента.
  4. Переменная n инициализируется значением 0.
  5. Цикл FOR проходит по всем элементам массива A(120) и сравнивает каждый элемент с переменной min. Если элементы равны, то переменная n увеличивается на 1.
  6. Выводятся значения переменных min и n с помощью функции PRINT.
  7. Код заканчивается END.

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


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

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

9   голосов , оценка 4.222 из 5

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

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

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