Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
1 / 1 / 0
Регистрация: 23.04.2011
Сообщений: 5

Заменить все отрицательные элементы массива, что стоят на четных местах, его максимальным элементом

23.04.2011, 00:27. Показов 1324. Ответов 7
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
в даном масиве M(14) заменить все отрицательные елементы, что стоят на парных местах его максимальным елементом, а на непарных - минимальным. начальный и преобразованый масив вивести к печати
M(1.2; 1.3; -0.2; 2.0; 4.8; -0.6; -1.1; 7.2; 3.5; -0.4; -1.7; 3.1; 2.8)
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
23.04.2011, 00:27
Ответы с готовыми решениями:

Массивы. Заменить все отрицательные элементы, стоящие на четных местах, максимальным его элементом, а на нечетных местах - минимальным
В заданном массиве В, который содержит 21 элемент, заменить все отрицательные элементы, стоящие на четных местах, максимальным его...

В заданном массиве М (14) заменить все отрицательные элементы, стоящие на четных местах, его максимальным элементом, а на нечетных - его минимальным э
В заданном массиве М (14) заменить все отрицательные элементы, стоящие на четных местах, его максимальным элементом, а на нечетных - его...

Все минимальные элементы, стоящие на четных местах, заменить максимальным элементом этой последовательности.
Дана последовательность из n целых чисел. Все минимальные элементы, стоящие на четных местах, заменить максимальным элементом этой...

7
Кормпилятор
 Аватар для Quiet Snow
5044 / 1718 / 409
Регистрация: 25.04.2010
Сообщений: 4,827
Записей в блоге: 2
05.05.2011, 00:21
что стоят на парных местах
И чё это такое? Парные места
Если уж хотите помощи конкретнее пишите, кодер - не гадалка. Элементов у вас меньше, чем написано, задания проверяйте, прежде чем выкладывать...
0
1 / 1 / 0
Регистрация: 23.04.2011
Сообщений: 5
05.05.2011, 22:21  [ТС]
Цитата Сообщение от destroymashine Посмотреть сообщение
в даном масиве M(14) заменить все парные отрицательные елементы его максимальным елементом, а на непарные - минимальным. начальный и преобразованый масив вивести к печати
M(0; 1.2; 1.3; -0.2; 2.0; 4.8; -0.6; -1.1; 7.2; 3.5; -0.4; -1.7; 3.1; 2.8)
исправил
0
Кормпилятор
 Аватар для Quiet Snow
5044 / 1718 / 409
Регистрация: 25.04.2010
Сообщений: 4,827
Записей в блоге: 2
06.05.2011, 00:06
исправил
Молодец, но тем не менее ничего не понятно. Что есть парные?(особенно во мн. числе)
Рядом стоящие? 2, 3, 4 или все? Пример парных элементов в студию, дабы наглядно понять.

Добавлено через 1 минуту
Сканирует в поиске отрицательных, 2-м последовательно идущим отрицательным присваивает максимальное знач. из всего масива, одному отдельному отрицательному присваивает минимальное знач. из всего массива.
Надеюсь, это художество можно модифицировать под любой ваш запрос:
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
CLS
DATA 0, 1.2, 1.3, -0.2, 2.0, 4.8, -0.6, -1.1, 7.2, 3.5, -0.4, -1.7, 3.1, 2.8
DIM M(14)
   PRINT "   Ishodnyj :"
   PRINT STRING$(80, 196)
 FOR i = 1 TO 14
      READ M(i)
      PRINT M(i);
 NEXT: PRINT
   PRINT STRING$(80, 196)
   PRINT "   Novyj :"
   PRINT STRING$(80, 196)
 Min = M(1): Max = Min
 FOR i = 1 TO 14
    IF M(i) < Min THEN Min = M(i)
    IF M(i) > Max THEN Max = M(i)
 NEXT
 i = 0
 DO: i = i + 1
    IF M(i) < 0 THEN
       k = k + 1
    ELSE
       IF k = 1 THEN
         M(i - 1) = Min
       ELSEIF k = 2 THEN
         FOR j = 1 TO k
            M(i - j) = Max
         NEXT
       END IF
       k = 0
    END IF
 LOOP UNTIL i = 14
 FOR i = 1 TO 14
    PRINT M(i);
 NEXT
   PRINT STRING$(80, 196)
0
1 / 1 / 0
Регистрация: 23.04.2011
Сообщений: 5
06.05.2011, 00:46  [ТС]
ну в задаче написано на парных местах, наверное 2,4,6,8 и т.д

Добавлено через 15 секунд
спасибо завтра обедом проверю, отвечу
0
Кормпилятор
 Аватар для Quiet Snow
5044 / 1718 / 409
Регистрация: 25.04.2010
Сообщений: 4,827
Записей в блоге: 2
06.05.2011, 01:03
2,4,6,8
Эти элементы называются ЧЁТНЫЕ, а что считать парными с ваших слов совершенно не ясно.
Эти 2 отрицательных парные?
1 -1 -1 1
А вот тут тогда чего?
0 -1 -1 -1 0
А тут
0 -1 -1 -1 -1 -1 0.
Я ж говорю, чтоб не гадать нужно точно знать, составить алгоритм анализа массива. Как определять эту "парность"?

спасибо завтра обедом проверю, отвечу
Я нашёл косяк в своей программе, потом перепишу. Короче говоря уточняйте, ничего не понятно, нужно конкретное правило, а так пытаться охватить всё - бесполезно...
0
1 / 1 / 0
Регистрация: 23.04.2011
Сообщений: 5
06.05.2011, 15:56  [ТС]
нужно что бы были парные и четные,
например есть 0 -2 -5 -6 8 -12 нужные будут -2 -6 и -12
просто в русском языке я не очень, так что извините
0
Оранжевый портфель.
 Аватар для Shkap
60 / 58 / 47
Регистрация: 13.11.2010
Сообщений: 459
06.05.2011, 17:45
>Quiet Snow<, ну вощпето я сначала одумал, что "парные" это четные. НО все татары кроме он
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
06.05.2011, 17:45
Помогаю со студенческими работами здесь

В массиве заменить все элементы, стоящие на четных местах, максимальным значением массива
Выдает ошибки в этом &quot;i:=i+2&quot;. Что не так? procedure TForm1.Button1Click(Sender: TObject); const n = 9; var A: array of...

Все отрицательные элементы матрицы заменить минимальным элементом, а все положительные - максимальным
В двумерном N*K массиве целых чисел все отрицательные элементы заменить минимальным элементом массива, а все положительные – максимальным...

Заменить в дереве все отрицательные элементы максимальным элементом этого же дерева
Заменить в дереве все отрицательные элементы максимальным элементом этого же дерева

Из удалить из массива отрицательные элементы, стоящие на четных местах и сжать его, заполнив нулями.
Из одномерного массива,состоящего из n целочисленных элементов, удалить отрицательные элементы, стоящие на четных местах. Сжать...

В бинарном файле поменять местами элементы, что стоят на парных местах с элементами, что стоят на непарных местах
Помогите пожалуйста написать код. В бинарном файле поменять местами элементы, что стоят на парных местах с элементами, что стоят на...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Новые блоги и статьи
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока
igorrr37 16.01.2026
/ * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит переходные токи и напряжения на элементах схемы. . . .
Восстановить юзерскрипты Greasemonkey из бэкапа браузера
damix 15.01.2026
Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11
Jel 10.01.2026
WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
Classic Notepad for Windows 11
Jel 10.01.2026
Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает?
Neotwalker 09.01.2026
В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru