|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
01.12.2007, 20:56 | #1 |
Регистрация: 09.10.2007
Сообщений: 3
|
Одномерный массив
В одномерном массиве, состоящем из n вещественных элементов, вычислить:
1) Максимальный по модулю элемент массива; 2) Сумму элементов массива, расположенных между первым и вторым положительными элементами. Преобразовать массив таким образом, чтобы в первой его половине располагались элементы равные нулю, а потом – все остальные. Ввод массива и вывод суммы и максимального элемента осуществить в основной программе. Среда - Borland C. Просьба помочь с програмным кодом или хотя бы дать совет |
01.12.2007, 21:22 | #2 |
Старожил
Регистрация: 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. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
одномерный массив | 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 |