Найти минимальное по модулю значение элемента массива; количество элементов массива, кратных 5 - Pascal

Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 4.80/5:

@Кротяка 7 / 7 / 1 Регистрация: 20.12.2010 Сообщений: 392

	Найти минимальное по модулю значение элемента массива; количество элементов массива, кратных 5 21.12.2010, 01:44. Показов 1041. Ответов 1 Метки нет (Все метки) В одномерном масиве Х,состоящем из n целых элементов,вычислитьЖ а)минимальное по модулю значение элемента б)кол-во элементов,кратных5 помогите нарисовать блоксхему к задаче!!! 0

Лучшие ответы (1)

Сообщение: #1223746

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

21.12.2010, 01:44

Ответы с готовыми решениями:

В одномерном массиве найти минимальный по модулю элемент и количество элементов, кратных 5
В одномерном массиве Х, состоящем из N целых элементов, вычислить: a) минимальный по модулю...

Вычислить минимальный по модулю элемент, количество элементов, кратных 5.
В одномерном массиве Х, состоящей из N целых элементов, вычислить: a) минимальный по модулю...

Найти члены ak последовательности a1,…,an, кратные 3 и не кратные 5, и определить их количество.
Помогите составить программу: Даны натуральные числа n, a1,…,an, где n≤5000. Найти члены ak...

Dekio

Фрилансер

5845 / 1226 / 499

Регистрация: 23.11.2010

Сообщений: 3,373

Записей в блоге: 1

21.12.2010, 11:18

Сообщение было отмечено Кротяка как решение

Решение

Pascal
1
2
3
4
5
6
7
8
min:=1;
for i:=1 to n do 
begin
if abs(arr[i])<abs(arr[min]) then
min:=i;
if arr[i] mod 5=0 then
inc(k);
end;

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

21.12.2010, 11:18

Помогаю со студенческими работами здесь

Найти члены последовательности a1,…,an, кратные 3 и не кратные 5, и определить их количество
Выручайте Даны* натуральные* числа* n,* a1,…,an,* где* n≤5000.* Найти* члены последовательности*...

Найти количество натуральных чисел, кратных 25 и не кратных 3
Найти количество натуральных чисел, не превосходящих 1000, каждое из которых кратно 25 и не кратно...

Найти количество кратных 7 положительных и сумму кратных 3 нечетных отрицательных
Задача, помогите пож. решить Найти количество кратных 7 положительных и сумму кратных 3 нечетных...

Определить сумму чисел кратных 15. Найти количество чисел кратных 15, 45, 75
программа получает n (n>0, n<=3000) натуральных чисел, определить сумму чисел кратных 15. Найти...

Процедуры: найти члены последовательности, кратные 3 и не кратные 5, и определить их количество
«Использование подпрограмм». Создание функции Даны натуральные числа n, a1,…,an, где...

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере нетипового документа выдачи шин для спецтехники с табличной частью, разработанного в конфигурации КА2. Данные берутся из. . .

Наверх