Создаются две программы: одна в паскале - в ней задается массив из 50 случайно сгенерированных чисел, другая в ассемблере - там должна происходить выборка из этих чисел наибольшего значения и наименьшего и их сложение. Вот как из паскаля вызвать вторую прогу и передать ей этот массив чисел?

используй ассемблерные вставки в паскале, он это допускает.

В самом паскале писать ассемблерную часть? А как в ней указать на массив из паскаля? Ведь асм должен как-то брать числа для обработки.

ну примерно так:

procedure P(var arr: TArray); // передаешь массив
begin
  asm
  // обработка на  asm
  end;
end;

Собственно, Паскаль позволяет и линковать OBJ-файлы, скомпилированные в TASM, так что можно и без вставок...

Пишешь процедуру на асме:

M1.ASM:
Data Segment
  Extrn Mass: Byte ;Word, DWord - в зависимости от задачи
Data EndS
Code Segment Public
  assume CS: Code
  Public Name
  Name Proc
    ;Процедура на асме
    ret
  Name EndP
Code EndS

Компилируешь TASM.
Потом пишешь на паскале:

{Здесь описываешь переменные, проседуры ввода-вывода итд}
{$L M1.obj}
Procedure Name; External;
Begin
  Name
End.

Должно работать..

Вполне возможно, что ЭТО работать и будет, но вот с массивами у тебя (а задача была именно на работу с массивами, если ты не соизволил этого заметить) подобным образом получится облом... Через параметры работаем с массивами...

P.S. не пользуйся никогда именем Name для чего-то своего, TASM этого не прощает.
P.P.S - открой для себя .DATA/.CODE

Все равно я ни че не пойму как делать Может кто-нить даст ссылку на подобную тему?

Что именно непонятно? Смотри: пишем программу на Паскале, в которой будет собственно массив и его заполнение, и куда потом передадим результат:

program pasm;
type
  arr = array[1 .. 10] of word;

{$F+}
function process(var a: arr; count: word): word; external;
{$F-}
{$L pasm.OBJ}


const
  myArray: arr = (22, 23, 4, 5, 6, 7, 8, 9, 4, 15);
var
  i: integer;
  r: word;
begin
  writeln('pascal');
  for i := 1 to 10 do write(myarray[i]:4);
  writeln;

  writeln('asm');
  r := process(MyArray, 10);
  writeln('min + max = ', r);
end.

Теперь пишем ASM-функцию, которая и будет получать указатель на массив и делать с ним все, что нужно:

.MODEL large, PASCAL
.DATA
	;
.CODE
Process PROC FAR ; function process(var pasArray: arr; count: word): word;
	ARG pasArray: DWORD, count: WORD returns result: WORD
	PUBLIC Process
	
	lds si, [pasArray]	;si = адрес (смещение) массива
	cld

	lodsw			;ax = первый элемент массива
		
	mov bx,ax		;в bx будет минимум, для начала - первый
	mov dx,ax		;в dx будет максимум, для начала - первый
		
	mov cx, count		;цикл на Count - 1 итераций
	dec cx
		
minmax:
	lodsw			;ax = очередной элемент массива
		
	cmp ax,bx		;поиск минимума: если ax < bx, то bx = ax
	jge minmax1
	mov bx,ax
minmax1:
	cmp ax,dx		;поиск максимума: если ax > dx, то dx = ax
	jle minmax2
	mov dx,ax
minmax2:
	loop minmax		;повторять с метки minmax Count - 1 раз

	add dx, bx		;dx = dx + bx = максимум + минимум
	mov ax, dx		; result = dx

ret
Process ENDP

	END

За основу ассемблерной функции взята программа xds: Массив целых цисел

Компилируешь программу TASM-ом, и линкуешь OBJ-файл к паскаль-программе... Запускаешь, смотришь, что непонятно - спрашиваешь

Добавлено через 1 мин.
P.S. Может, тему лучше в ASM двинуть? В любом случае она не для "Теоретических вопросов"...

2volvo: Большое спасибо! Я уже раз 10 читал про это линкование, но никак ни мог врубиться. Сейчас часть программы маленько переделал "под себя" и встал перед другим вопросом: у меня результат должен выводиться еще ассемблером, т.е. появляется окно и в нем тупо пишется "rezultat = ...". Как выводить текст в асме я знаю, но вот как реализовать вызов самого асма что бы он уже выводил текст?

P.S. Ну мне, если честно, не принципиально где тема будет.

Точно так же, как это делается сейчас... Только перед RET в ассемблерной функции добавить еще и вывод результата (ну, и поскольку это все-таки функция, то вернуть результат через AX, но в паскале ничего с ним не делать).