Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.12.2007, 20:56   #1
SkyDreamer
 
Регистрация: 09.10.2007
Сообщений: 3
По умолчанию Одномерный массив

В одномерном массиве, состоящем из n вещественных элементов, вычислить:
1) Максимальный по модулю элемент массива;
2) Сумму элементов массива, расположенных между первым и вторым положительными элементами. Преобразовать массив таким образом, чтобы в первой его половине располагались элементы равные нулю, а потом – все остальные. Ввод массива и вывод суммы и максимального элемента осуществить в основной программе.

Среда - Borland C.
Просьба помочь с програмным кодом или хотя бы дать совет
SkyDreamer вне форума Ответить с цитированием
Старый 01.12.2007, 21:22   #2
puporev
Старожил
 
Регистрация: 13.10.2007
Сообщений: 2,740
По умолчанию

Извините, не туда попал.
Но раз уж попал, то маленький совет. ВС не знаю, поэтому только алгоритм.
1.Перед циклом for .. do присвоить max=a[1];В цикле if a[i]> max then max:=a[i]. Все.
2а. Создать дополнительно массив индеков положительных элементов.
if a[i]>0 then b[i]:=i; Потом в массиве a[i] подсчитать сумму элементов между b[1] и b[2].
2б. В цикле если a[i]<>0 то переставляем числа местами со следующим. В результате все ноли соберутся впереди. На Паскале это так
for i:=1 to n-1 do begin
for j:=1 to n-1 do
if a[j]=0 then begin x:=a[j];a[j]:=a[j+1];a[j+1]:=x; end;end;
Может хоть что-то из этого пригодится.

Последний раз редактировалось puporev; 02.12.2007 в 08:49.
puporev вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
одномерный массив ldx Паскаль, Turbo Pascal, PascalABC.NET 4 06.06.2008 17:45
VBA. Одномерный массив ExMatiss Microsoft Office Excel 9 07.05.2008 05:57
одномерный массив fatdog Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 4 23.02.2008 10:05
безразмерный одномерный массив SunKnight Общие вопросы C/C++ 1 20.02.2008 04:13
Массив Одномерный flait111 Помощь студентам 3 15.12.2007 14:08