Задача на замену положительных элементов массива на минимальный элемент данного массива - QBasic
Формулировка задачи:
Доброго времени суток!
помогите пожалуйста решить задачу.
Дан массив А из 20 элементов. Заменить положительные элементы массива на минимальный элемент массива. Результат вывести на печать.
вот что у меня получилось только не думаю что очень правильно
С серединкой я как-то застопорилась((( я так понимаю там надо написать замену элементов на единицу? но как это сделать?
Заранее спасибо за помощь)
Листинг программы
- 10 DIM A(20)
- 20 FOR I=1 TO 20
- 30 INPUT A(I)
- 40 NEXT I
- 50
- 60
- 70
- 80
- 90 PRINT
- 100 END
Решение задачи: «Задача на замену положительных элементов массива на минимальный элемент данного массива»
textual
Листинг программы
- DECLARE FUNCTION Min! (a() AS INTEGER, n!)
- CLS
- RANDOMIZE TIMER
- n = 20
- DIM a(1 TO n) AS INTEGER
- FOR i = 1 TO n
- a(i) = 20 * RND - 10
- PRINT a(i);
- NEXT i
- PRINT : PRINT
- FOR i = 1 TO n
- IF a(i) > 0 THEN a(i) = Min(a(), n)
- NEXT i
- FOR i = 1 TO n
- PRINT a(i);
- NEXT i
- END
- FUNCTION Min (a() AS INTEGER, n)
- IF n = 1 THEN
- Min = a(1)
- ELSE
- mi = Min(a(), n - 1)
- IF mi < a(n) THEN Min = mi ELSE Min = a(n)
- END IF
- END FUNCTION
Объяснение кода листинга программы
- Объявляется функция Min с параметрами a() типа INTEGER и n.
- Задается значение переменной n равное 20.
- Создается массив a размером 1..n.
- В цикле заполняются значения элементов массива a случайными числами от -10 до 10.
- Выводятся значения элементов массива a.
- В цикле происходит замена положительных элементов массива a на минимальный элемент в этом массиве.
- Выводятся значения элементов массива a после замены.
- Определяется функция Min с параметрами a() типа INTEGER и n.
- Если n равно 1, то функция возвращает значение первого элемента массива a.
- Иначе, находится минимальное значение среди первых n-1 элементов массива a и сохраняется в переменной mi.
- Если mi меньше значения n-го элемента массива a, то функция возвращает mi, иначе возвращается значение n-го элемента массива a.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д