В массиве Х (10) найти наименьший элемент QBasic

Как на QBasic будет не знаю, но вот тебе пример алгоритма

Min:=X[1]; // За минимум берем первый элемент массива

// Далее проверяем элементы массива начиная со второго
for i:=2 to 10 do if (Min > X[i]) then Min:=X[i]; // если Min > X[i], то Min=X[i]

Writeln('Минимальный элемент: ',Min); // Выводим результат