{* Максимальный элемент массива *}

REM basic

' Нахождение максимального элемента массива.


10 PRINT "Нахождение максимума"
20 {Ввод данных (Элементов массива)
}30 Dim A(10): {Создание одномерного массива
}40 DATA 1,2,3,4,5,6,100,50,25,10
50 For I=1 To 10: {Цикл ввода элементов массива
}60 READ A(I): {Заполнение массива
}70 Next I
80 PRINT "Поиск максимального элемента массива"
90 Let I=1
100 Let M=A(I): {Запоминаем I-й элемент массива
}110 Let I=I+1: {Увеличиваем I на единицу
}120 If I>10 Then 150: {Если I>10 т.е. числу массивов то переходим в конец программы
}130 If A(I)>M Then 100: {Если A(I) больше M то возвращаемся к 100-й строчке на единицу
}140 GoTo "MAX=";M: {Вывод максимального элемента массива
}160 End: REM Конец программы