Напишите программу на языке программирования (или составьте алгоритм). Даны действительные числа (все числа различны). Замените в этой последовательности наименьший элемент 0, а все нулевые элементы наибольшим членом последовательности — QBasic(Бейсик) — Справочник разработчика. Приемная комиссия

 Q = 0
FOR cnt=1 TO 100
IF Q > X(cnt) THEN Q = X(cnt)
NEXT cnt

Тестирование выполнено в программе QB64 ( Скачать )