AnvilBay Forum

Общение => Софт & Hard => Тема начата: Borya71 от 12 Января 2014, 14:21

Название: Массивы в Delphi 7 (нужна помощь)
Отправлено: Borya71 от 12 Января 2014, 14:21

Вообщем такая задача:
Составить процедуру для определения минимального по модулю элемента одномерного массива длиной 20 элементов. Если минимальные по модулю элементы двух заданных массивов Х и Т отличаются менее чем на 5, просуммировать все положительные элементы обоих массивов и вывести полученные суммы. В противном случае вывести найденные минимальные элементы.

Поиск минимального элемента:
findMin(X, T);
Label3.Caption:='Минимальный элемент: ' + IntToStr(T);

Вопрос в создании массива, через какие компоненты удобнее всего, чтобы сразу было 20 элементов, в принципе можно через SpinEdit (но там придётся прописать какое кол-во элементов мы будем выставлять), а в задании конкретно 20. И пункт "Если минимальные по модулю элементы двух заданных массивов Х и Т отличаются менее чем на 5, просуммировать все положительные элементы обоих массивов и вывести полученные суммы" тут вообще для меня тёмный лес...

Название: Массивы в Delphi 7 (нужна помощь)
Отправлено: Hawker от 12 Января 2014, 15:29

Друг,тут же тема есть ;)
Опиши проблему сюда (http://forum.anvilbay.ru/index.php?topic=25336.0) :)