Определить индекс минимального и индекс максимального значений массива - QBasic
Формулировка задачи:
Дан одномерный массив! Определить индекс минимального и индекс максимального значений?
Очень срочно! Заранее благодарю!!!
Решение задачи: «Определить индекс минимального и индекс максимального значений массива»
textual
Листинг программы
INPUT "enter n: ", n
DIM a(n)
FOR i = 1 TO n
PRINT "enter a("; i; ")";
INPUT ": ", a(i)
NEXT
FOR i = 1 TO n
PRINT a(i);
NEXT
PRINT
min = a(1)
imin = 1
FOR i = 2 TO n
IF a(i) < min THEN min = a(i): imin = i
NEXT
max = a(1)
imax = 1
FOR i = 2 TO n
IF a(i) > max THEN max = a(i): imax = i
NEXT
PRINT "index min: "; imin
PRINT "index max: "; imax
Объяснение кода листинга программы
Код на языке QBasic выполняет следующие действия:
- Вводит от пользователя количество элементов массива (n).
- Выделяет память под массив a(n).
- Запрашивает у пользователя значения элементов массива a(i) и сохраняет их в переменную a(i).
- Выводит на экран все значения массива a(i).
- Находит минимальное значение массива a(i) и сохраняет его в переменную min.
- Находит индекс минимального значения массива a(i) и сохраняет его в переменную imin.
- Находит максимальное значение массива a(i) и сохраняет его в переменную max.
- Находит индекс максимального значения массива a(i) и сохраняет его в переменную imax.
- Выводит на экран индекс минимального значения массива a(i).
- Выводит на экран индекс максимального значения массива a(i).