Показать сообщение отдельно
  #4  
Старый 20.03.2011, 15:03
Аватар для Pilot_Red
Pilot_Red Pilot_Red вне форума
Продвинутый
 
Регистрация: 01.11.2006
Адрес: Карелия
Сообщения: 702
Версия Delphi: D7
Репутация: 11581
По умолчанию

Цитата:
Сообщение от Future
я не понимаю,как записать .Точнее вот начало ,наверное,так
var A:array[1...10] of integer=[1,2,-3,4,-7,8,9,5,-6,10];
i,n:=integer;
а дальше не знаю.Как записать ,что нам надо уменьшить четные числа на min значение(в данном промежутке min число -7 )..??

Вообще задача решается в два счета...!
организовываешь 2 цикла. в одном ищешь мин. элемент, а во-втором цикле собственно проверяешь на четность индексы элементов, и при удачной проверке делаешь вычитание...
Ответить с цитированием