|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
16.02.2012, 13:39 | #1 |
Регистрация: 16.02.2012
Сообщений: 7
|
задание про одномерный массив!
Задание:
Дан одномерный массив, состоящий из N вещественных элементов. Найти произведение элементов массива, расположенных между максимальным и минимальным элементами. Формат входных данных: В первой строке входного файла содержится число N (диапазон значений: от 1 до 100 включительно). Во второй строке даны N вещественных чисел через пробел. Гарантируется, что среди них только одно максимальное и одно минимальное. Формат выходных данных: Выведите в выходной файл искомое произведение с знаками после десятичной точки или , если между максимальным и минимальным элементом нет других элементов. Примеры: Вход 5 -3.12 -5.25 2.5 1.2 6 Выход 3.000 Вход 2 1.24 5.36 Выход 0.000 ____________________________ Код:
_________________________________ Итак, сначала я читаю из файла количество чисел в массиве. Затем, под количество этих элементов создаю цикл, где каждое элемент массива сравниваю с максимальным или минимальным значением: если значение больше максимального, тогда я максимальному значению присваиваю это значение, а номеру максимального элемента - номер данного элемента. Почти так же с минимальным значением. Мы узнали индекс максимального и минимального элементов. q - наименьший индекс по значению, w - максимальный. Если между этими элементами нет чисел, то мы пишем 0... А дальше у меня ступор... Как создать цикл, который будет читать элементы между q и w? Нужно каким-то образом вернуться в начало строки, чтобы заново начать читать. Как это сделать? Вот это место у меня неправильно: for z:=q to w do begin read(a[q]); pr:=pr*a[q]; end Как его переделать? Заранее спасибо ___________ Код нужно оформлять по правилам: тегом [CODE]..[/СODE] (это кнопочка с решёточкой #) Не забывайте об этом! Модератор. Последний раз редактировалось Serge_Bliznykov; 16.02.2012 в 13:59. |
16.02.2012, 16:13 | #2 | |
Форумчанин
Регистрация: 23.09.2010
Сообщений: 682
|
Цитата:
Код:
Проще всего признать свою ошибку.
Гораздо труднее еЁ осознать и исправить. |
|
16.02.2012, 17:48 | #3 |
Регистрация: 16.02.2012
Сообщений: 7
|
Спасибо!
Спасибоо... Я тормоз...
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Assembler: задание про две строки | Spay | Помощь студентам | 0 | 17.06.2011 19:27 |
задание про перемишение 2х кнопок | TR1BUNAL | Общие вопросы Delphi | 5 | 08.06.2011 09:28 |
Задача про одномерный массив | klaster | Помощь студентам | 6 | 14.01.2011 00:36 |
Одномерный массив. Q basic - Построить новый массив из элементов исходного ,которые больше P. | Marishkaa | Помощь студентам | 2 | 12.01.2010 16:54 |
задачка про одномерный массив | masil | Паскаль, Turbo Pascal, PascalABC.NET | 8 | 26.11.2008 21:05 |