решить задачу в Delphi Console

[grablin92]

Заданы три вектора с разным числом компонентов А(3) В(4) С(5). Найти для каждого минимальный по модулю элемент и его порядковый номер)
заранее благодарен.

[Alex11223]

И что? Покажите наработки, расскажите что не получается или сделаю за небольшое вознаграждение Вебмани или ЯД (контакты в подписи)

[Mad_Cat]

type Tarray:=array[1..5] of double;

var a,b,c:Tarray;

function GetMinAbs(a:Tarray;size:integer):integer;
var k,i:integer;
begin
k:=1;
for i:= 2 to size do
if abs(a[i])<abs(a[k]) then k:=i;
result:=k;
end;

вызов

writeln(a[GetMinAbs(a,3)], ' #',GetMinAbs(a,3));