Тема: Уменьшить минимальное число одномерного массива на 1
Показать сообщение отдельно
  #2  
Старый 18.12.2009, 11:27
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
  
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,723
Репутация: 52347
По умолчанию
Код:
Min := 1;
for i := 2 to 50
do if A[i] < A[Min] 
    then Min := i;
Dec(A[Min]);
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием