массив из натуральных чисел, Pascal+Assembler Опции

[CooLLeR-zzz]

Создать прогрмму , где даны 10 натуральных чисел. Вывести на экран максимальные и минимальные числа.
Сидим с братом и не можем догнать ход проги , поняли одно что можно сделать через память или массив.
Пожалуста помогите народ , буду весьма благодарен !!!!!!!!!!!!!!!!!

[GoodWind]

а текст "ругани" привести возможно?

да и вообще код на кашу похож... я тоже ругался когда его посмотрел

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]);
  i:=n;
asm
  dec   i
@CycleExt:
  xor   ebx,ebx
  mov   ecx,i
  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.

примерно так.. хотя проверить не мог - на работе некогда, да и компилятора нет.

Сообщение отредактировано: volvo - 2.11.2006 20:08