Question

Напишите программу минимального элемента массива (в бейсике)

Answer 1

Function Minimum(a, b)
    Minimum = a
    If b < a then Minimum = b
end Function

'VBScript

Answer 2

Конкретный синтаксис может отличаться в зависимости от диалекта BASIC, но вот пример программы для нахождения минимального элемента в массиве на языке BASIC:

cssCopy code
REM определяем массив
DIM a(10)

REM заполняем массив случайными числами от 1 до 100
FOR i = 1 TO 10
    a(i) = INT(RND * 100) + 1
NEXT i

REM выводим элементы массива на экран
FOR i = 1 TO 10
    PRINT a(i)
NEXT i

REM ищем минимальный элемент массива
min = a(1)
FOR i = 2 TO 10
    IF a(i) < min THEN
        min = a(i)
    END IF
NEXT i

REM выводим результат на экран
PRINT "Минимальный элемент массива: "; min

В этой программе мы создаем массив a размера 10 и заполняем его случайными числами от 1 до 100. Затем мы выводим элементы массива на экран, чтобы убедиться, что они были заполнены корректно.

Далее мы ищем минимальный элемент массива, перебирая все его элементы. Изначально мы предполагаем, что минимальный элемент равен a(1), а затем сравниваем его с каждым элементом массива. Если мы находим элемент, который меньше текущего минимального элемента, то сохраняем его как новый минимальный элемент.

Наконец, мы выводим результат на экран с помощью команды PRINT.