1. Заголовок или название темы должно быть информативным 2. Все тексты программ должны помещаться в теги [CODE=asm] [/CODE] 3. Прежде чем задавать вопрос, см. "FAQ",если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно, такую задачу уже решали! 4. Не предлагайте свои решения на других языках, кроме Ассемблера. Исключение только с согласия модератора. 5. НЕ используйте форум для личного общения! Все, что не относиться к обсуждению темы - на PM! 6. Проверяйте программы перед тем, как выложить их на форум!!
Создать прогрмму , где даны 10 натуральных чисел. Вывести на экран максимальные и минимальные числа. Сидим с братом и не можем догнать ход проги , поняли одно что можно сделать через память или массив. Пожалуста помогите народ , буду весьма благодарен !!!!!!!!!!!!!!!!!
Вот что у меня получилось пузырьковой сортировкой , но оно не работает , ругается
Program Posled; Const n=10; Var Mas:Array[1..n] of integer; i,j:Byte; Exchange:Integer; Begin For i:=1 To n Do Begin write('?'); Readln(Mas[i]); End; procedure BubbleSort(Mas: Pointer; Len: Integer); Begin asm dec Len @CycleExt: xor ebx,ebx mov ecx,Len mov esi,0 @CycleIn: mov edi,Mas[esi] cmp edi,Mas[esi+4] jg @Exchange add esi,4 loop @CycleIn jmp @Check @Exchange: mov ebx,Mas[esi+4] mov Mas[esi+4],edi mov Mas[esi],ebx add esi,4 loop @CycleIn @Check: cmp ebx,0 je @Exit jmp @CycleExt @Exit: end; For i:=1 To n Do Write(Mas[i]:6); End.