Указатели, Кто-нибудь знает что тут делать? Опции

[mjey]

type ref = ^integer;
vector = array[1..17] of ref;
Описать функция min(x) для нахождения наименьшего из чисел, на которые ссылаются элементы вектора x.

[APAL]

Посмотри здесь: http://pascal.net.ru/forum/index.php?showt...=2146&hl=vector

Похоже вы из одного класса или группы. Или училка одна и та же!

[Catty]

а по-моему это один и тот же человек!

[HelpAusHeaven]

APAL
...Или препод

Так что эту задачу никто так и не сделал что ли?

[APAL]

HelpAusHeaven
Просто задачка слишко простая...
Если бы было желание, то за учебный год давно можно было бы разобраться!
А вот год прошел, наступила сессия и люди начинают понимать, что они все просто пропускали мимо ушей.
Чтобы решить данную задачку достаточно взять какой нибудь учебный материал, найти нужный раздел и даже не очень разбираясь в TP, накатать прогу(-льку) строк эдак на 10-15...

К чему я все это?
Я патыюсь сказать, что приложив минимум усилий задачу можно решить самому!

[virt]

Код

function min(x:vector):integer;
var i,j:integer;
begin
  j:=1;
  for i:=1 to 17 do if (x[i]^<x[j]^) then j:=i;
  min:=j;
end;

7 строчек.