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

[Korsar]

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

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

[klem4]

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

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