FOR i = 1 TO 6
INPUT a
IF a < min OR i = 1 THEN min = a
NEXT
PRINT min
Похожие записи/страницы:
- Даны вещественные числа a,b,c,d; Составить программу, определяющую наибольшее из четырех чисел.Написать и…
- Даны действительные числа x и y , не равные друг другу. Меньшее из этих двух чисел заменить половиной их суммы,…
- Даны три числа. Написать программу, подсчитывающую количество чисел, равных 0 - QBasic(Бейсик)
- Даны целые числа из промежутка [-24; 56]. Найти сумму всех нечетных чисел и количество четных чисел. Найти…
- Дан ряд чисел b1,b2...bn.Выбрать из них положительные числа и найти среднее арифметическое квадратов этих чисел…
- Дан ряд чисел b1,b2....bn. Выбрать из них положительные числа и найти среднее арифметическое квадратов этих…