Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Массив

Автор: Korsar 18.11.2006 4:55

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

Или хотя бы подскажите где можно посмотреть подобную задачу. Заранее всем благодарен за помощь!!!

Автор: lapp 18.11.2006 11:54

Отыскание минимального элемента настолько просто, что даже отсылка в Поиск будет сложнее 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 18.11.2006 14:38

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


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


Автор: lapp 18.11.2006 14:55

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

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

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