Найти минимальный элемент массива

Помогите решить две задачки, пожалуйста.1. Задан массив из 15 элементов. Элементы массива вводятся с клавиатуры. Найти минимальный элемент массива. 2. Продолжить оператор PRINT, использующий значения заданных переменных, чтобы получить на экране следующие выражения.
X=17
Y=5
A=?
B=(X-Y) * A
PRINT ... ... ..?
Экран: Через 36 минут закончиться пара.
2 ответа

1 задача:
Dim a(15)
for x=1 to 15
input a(x)
next x
min=a(1)
for x=2 to 15
if a(1)>a(x) then a(1)=a(x)
next x
print min
2 задание, как я понял задание:
cls
x=17
y=5
b=(x-y)*a
a=b/12
b=36
print "Через"; b; "минут закончится пара"


Lotosin, это лажа:
DIM a(15)
FOR x=1 TO 15 
INPUT a(x) 
NEXT x 
min=a(1) 
FOR x=2 TO 15 
IF a(1)>a(x) 
THEN a(1)=a(x) 
NEXT x 
PRINT min
Вот правильное решение:
DIM a(15)
FOR x=1 TO 15
INPUT a(x)
NEXT x
min=a(1)
FOR x=2 TO 15
IF a(1)>a(x) THEN min=a(x)
NEXT x
PRINT min
PS А это сообщение не часть программы, а крик души
Через 36 минут закончиться парa