zadach85.BAS

{* Задача85 *}

REM basic

' В простую переменную последовательно вводятся N вещественных чисел. Вычислить максимальное значение.


10 INPUT "Сколько чисел в последовательности?"; N%
30 INPUT "Первое число ="; MAX
40 For I = 2 To N%
50 INPUT "Очередное число"; X
60 If X >= MAX Then MAX = X
70 Next I
80 PRINT "MAX ="; MAX
90 End