Главная
Решение задач.
Справочные данные.
Формулы.
Программирование.
Как в Windows?
Разное.
Утилиты Windows.
Несправности принтеров.
BIOS по алфавиту.
Тесты.
Карта сайта.
|
Нахождение минимального элемента массива.
10 PRINT "Нахождение максимума"
20 REM Ввод данных (Элементов массива)
30 DIM A(10): REM Создание одномерного массива
40 DATA 1,2,3,4,5,6,100,50,25,10
50 FOR I=1 TO 10: REM Цикл ввода элементов массива
60 READ A(I): REM Заполнение массива
70 NEXT I
80 PRINT "Поиск минимального элемента массива"
90 LET I=1
100 LET M=A(I): REM Запоминаем I-й элемент массива
110 LET I=I+1: REM Увеличиваем I на единицу
120 IF I>10 THEN 150: REM Если I>10 т.е. числу массивов то переходим в конец программы
130 IF A(I)<M THEN 100: REM Если A(I) больше M то возвращаемся к 100-й строчке на единицу
140 GOTO "MAX=";M: REM Вывод максимального элемента массива
160 END: REM Конец программы
Web программирование Pascal&Delphi Бeйсик
|
|
|