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

[CooLLeR-zzz]

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

[CooLLeR-zzz]

Народ а что такое с задачей (найти макс. и мин. числа) , выводятся на экран ряд разных чисел , даже есть с отрицанием , ведь ряд натуральных чисел - это ряд положительных чисел ?

program MinMax;
var
 a: array[1..10] of Integer;
 i, Min, Max: Integer;
begin
  Randomize;
  for i := 1 to 10 do
    begin
      a[i] := Random(101) - 50;
     Write(a[i], ' ');
    end;
  Writeln;
  asm
   cld
    lea si,a
    lodsw
    mov bx,ax
    mov dx,ax
    mov cx,9
  @@1:
   lodsw
    cmp ax,bx
    jge @@2
    mov bx,ax
  @@2:
    cmp ax,dx
    jle @@3
    mov dx,ax
  @@3:
    loop @@1
    mov Min,bx
    mov Max,dx
  end;
 Writeln('Min = ', Min);
  Writeln('Max = ', Max);
end.

я же сказал ПОЛЬЗУЙСЯ ТЭГАМИ!

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