Массив, Решить задачу с помощью процедуры!!! Опции

[Korsar]

Люди добрые, помогите пожалуйста решить задачу. Скоро аттестация, а мне еще сдавать да сдавать. Вот собственно задача:
Задан массив C(K). Определить минимальный элемент массива С и его порядковый номер - 1<=Ci<=+1, K<=20.
Решить нужно с помощью процедур.
Или хотя бы подскажите где можно посмотреть подобную задачу. Заранее всем благодарен за помощь!!!

Сообщение отредактировано: Korsar - 18.11.2006 0:58

[Lapp]

Отыскание минимального элемента настолько просто, что даже отсылка в Поиск будет сложнее
Ты потратил больше времени на написание мессаджа, чем думал бы над задачей, если бы тебе вдруг (с перепугу) захотелось бы подумать самому..

  Cmin:=C[1];
  Imin:=1;
  for i:=2 to K do if C[i]<Cmin then begin
    Cmin:=C[i];
    Imin:=i
  end

Можешь оформить это как процедуру, если хочешь..

[klem4]

Зачем лишняя переменная ?

Imin:=1;
for i:=2 to K do 
 if C[i]<C[Imin] then
  Imin:=i 

[Lapp]

Зачем лишняя переменная ?

абсолютно согласен, переборщил