Помощь - Поиск - Пользователи - Календарь
Полная версия: Массив
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Korsar
Люди добрые, помогите пожалуйста решить задачу. Скоро аттестация, а мне еще сдавать да сдавать. Вот собственно задача:
Задан массив C(K). Определить минимальный элемент массива С и его порядковый номер - 1<=Ci<=+1, K<=20.
Решить нужно с помощью процедур.

Или хотя бы подскажите где можно посмотреть подобную задачу. Заранее всем благодарен за помощь!!!
Lapp
Отыскание минимального элемента настолько просто, что даже отсылка в Поиск будет сложнее smile.gif
Ты потратил больше времени на написание мессаджа, чем думал бы над задачей, если бы тебе вдруг (с перепугу) захотелось бы подумать самому..
  Cmin:=C[1];
  Imin:=1;
  for i:=2 to K do if C[i]<Cmin then begin
    Cmin:=C[i];
    Imin:=i
  end

Можешь оформить это как процедуру, если хочешь..
klem4
Зачем лишняя переменная ? rolleyes.gif

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

Lapp
Цитата(klem4 @ 18.11.2006 11:38) *

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

абсолютно согласен, переборщил smile.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.