Под этим солнцем и небом мы тепло приветствуем Вас, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Бухта 2.0. Тёплая. Ламповая. Твоя.

Автор Тема: Массивы в Delphi 7 (нужна помощь)  (Прочитано 4793 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн Borya71

  • *
  • Сообщений: 3
Массивы в Delphi 7 (нужна помощь)
« : 12 Января 2014, 14:21 »
0
Вообщем такая задача:
Составить процедуру для определения минимального по модулю элемента одномерного массива длиной 20 элементов. Если минимальные по модулю элементы двух заданных массивов Х и Т отличаются менее чем на 5, просуммировать все положительные элементы обоих массивов и вывести полученные суммы. В противном случае вывести найденные минимальные элементы.

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

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

Оффлайн Hawker

  • *
  • Сообщений: 1424
  • Пол: Мужской
  • Оракул
Массивы в Delphi 7 (нужна помощь)
« Ответ #1 : 12 Января 2014, 15:29 »
0
Друг,тут же тема есть ;)
Опиши проблему сюда :)
Этот текст будет отображаться под каждым вашим сообщением.
Для оформления можно использовать BB-теги и смайлы. Впечатляет! Лучше не придумаешь!
Награды  Мужественному и неотразимому Господину Бухты-2014 Венок - победителю командного соревнования на Фестивале "Конец страды"