Ответы и объяснения

Лучший Ответ!
  • Участник Знаний
2014-03-06T00:20:32+04:00
Procedure MinElem(a: array of integer; var min: integer; var minind: integer);
begin
min := a[0];
minind := 0;
for var i:=1 to a.Length-1 do
if a[i]<min then
begin
min := a[i];
minind := i;
end;
end;