Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.62/13: Рейтинг темы: голосов - 13, средняя оценка - 4.62
6 / 6 / 0
Регистрация: 26.09.2010
Сообщений: 9

Заменить минимальный положительный элемент массива нулем

26.09.2010, 18:45. Показов 2514. Ответов 10
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
1) заменить минимальный положительный элемент нулем.
2) заменить элемент с k-1-го по k-2-ой на обратный.

помогите решить плиз!
1
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
26.09.2010, 18:45
Ответы с готовыми решениями:

Определить минимальный элемент массива и его порядковый номер, заменить минимальный элемент массива нулём
Определить минимальный элемент массива С и его порядковый номер, замените минимальный элемент массива нулём. Массив С(К),...

Найти первый минимальный элемент и заменить его нулем
Дан массив целых чисел, среди них есть равные. Найти первый минимальный элемент и заменить его нулем.

Найти минимальный положительный элемент массива
Найти минимальный положительный элемент массива. <-- Вот собсна и задание.

10
411 / 330 / 42
Регистрация: 10.03.2010
Сообщений: 3,313
26.09.2010, 18:47
Это в одномерном массиве нужно сделать ? И поменять местами к-1 и к-2-й элементы,что ли?
2
6 / 6 / 0
Регистрация: 26.09.2010
Сообщений: 9
26.09.2010, 18:49  [ТС]
2 задача так и написана в учебники
1
411 / 330 / 42
Регистрация: 10.03.2010
Сообщений: 3,313
26.09.2010, 18:53
Фрагмент 1 задачи:
Pascal
1
2
3
4
5
6
7
8
9
10
11
min:=32767;
for i:=1 to  n do
  if a[i]>0   then 
     if a[i]<min then 
begin        
min:=a[i];
nm:=i;
end;
a[nm]:=0;
for i:=1 to n do
write(a[i],'  ');
2
6 / 6 / 0
Регистрация: 26.09.2010
Сообщений: 9
26.09.2010, 18:54  [ТС]
напишите массив плиз.

Добавлено через 18 секунд
спасибо
1
6 / 6 / 0
Регистрация: 26.09.2010
Сообщений: 9
26.09.2010, 18:57  [ТС]
min:=32767; зачем это
и nm что это
1
411 / 330 / 42
Регистрация: 10.03.2010
Сообщений: 3,313
26.09.2010, 19:02
За исходный минимум берем самое большое целое число(если диалект типа ТР 7),т.е.32767,а nm- это номер минимального элемента из положительных.
А задача 2 решается типа так:
buf:=a[k-2];a[k-2]:=a[k-1];a[k-1]:=buf;
2
6 / 6 / 0
Регистрация: 26.09.2010
Сообщений: 9
26.09.2010, 19:06  [ТС]
вторую задачу полность можете написать? очень надо, плиз
1
411 / 330 / 42
Регистрация: 10.03.2010
Сообщений: 3,313
26.09.2010, 19:08
я все-таки не понимаю,что значит "заменить на обратный"?Типа 1/а,что ли.А к-1 всегда больше,чем к-2...
2
6 / 6 / 0
Регистрация: 26.09.2010
Сообщений: 9
26.09.2010, 19:11  [ТС]
это значит 1/а
1
411 / 330 / 42
Регистрация: 10.03.2010
Сообщений: 3,313
26.09.2010, 19:16
И какие же элементы нужно заменить на обратные,если к-1 всегда больше к-2 и между ними ничего нет!
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
26.09.2010, 19:16
Помогаю со студенческими работами здесь

Заменить все четные элементы массива с нечетными значениями на предпоследний положительный элемент массива
Помогите, пожалуйста!! Дан одномерный массив Xk. Заменить все четные элементы с нечетными значениями на предпоследний положительный...

Найти первый максимальный элемент массива и заменить его нулем
Дан массив действительных чисел, среди которых есть равномерные. Найти первый максимальный элемент этого массива и заменить его нулем....

Найти первый максимальный элемент массива и заменить его нулем
Составить программу на Паскале, содержащую минимум четыре подпрограммы. Дан одномерный массив, выполнить следующие действия: -найти...

Бинарный поиск. Заменить первый положительный элемент на минимальное значение элемента массива.
Заменить первый положительный элемент на минимальное значение элемента массива A(N)

Преобразовать 2-хмерный массив: все отрицательный числа массива заменить на минимальный элемент этого массива.
Преобразовать массив: все отрицательный числа массива заменить на минимальный элемент этого массива. Кол-во строк 4,столбцов 6. Также...


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

Или воспользуйтесь поиском по форуму:
11
Ответ Создать тему
Новые блоги и статьи
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Символьное дифференцирование
igorrr37 13.02.2026
/ * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru