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

[CooLLeR-zzz]

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

[red_alex]

Вывести на экран максимальные и минимальные числа

Требуется вывести максимальное и минимальное число? Просто не понятно, что означает фраза: вывести максимальные и минимальныеп числа.

И что значит Паскаль+ассемблер?Т.е написать программу либо в Паскале, либо в ассемблере или сделать паскалевскую прогу со вставками на языке ассемблера?

[CooLLeR-zzz]

Ну это тоесть дана любые 10 натуральных числел , из них вывести максимальное и минимальное число на экран .
паскалевская прога со вставками на языке ассемблера


вот что у меня получилось на паскале , а как туда ассемблер вогнать не знаю

var
  a : array[1 .. 10] of integer;
  i : integer;
  min, max : integer;
begin
  randomize;
  for i := 1 to 10 do
  begin
    a[i] := random(100) - 50;
    write(a[i]:4);
  end;
  writeln;

  min := a[1];
  max := a[1];
  for i := 2 to 10 do
  begin
    if a[i] < min then
      min := a[i];
    if a[i] > max then
      max := a[i];
  end;

  writeln('min: ', min);
  writeln('max: ', max);
  readln;
end.

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