Произведение чисел в массиве - PascalABC.NET

PascalABC.NET

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

Войти

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

Рейтинг 4.83/6:

@Vlad_01 0 / 0 / 0 Регистрация: 12.12.2016 Сообщений: 3

	Произведение чисел в массиве 12.12.2016, 19:50. Показов 1224. Ответов 1 Метки нет (Все метки) Pascal ABC Net Дан массив чисел найти наибольшее произведение двух чисел из него, при условии что между этими двумя должны располагаться минимум 3 числа пример: 1 2 3 4 5 6 7 8 32 0

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

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

cpp_developer

Эксперт

20123 / 5690 / 1417

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

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

Блог

12.12.2016, 19:50

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

Найти произведение чисел в массиве
Задача: Найти произведение 10 чисел. вроде сделал PROGRAM proiz; VAR MAS:ARRAY OF INTEGER; i,p:INTEGER; BEGIN FOR i:=1 TO...

Произведение положительных и отрицательных чисел в массиве
После ввода с клавиатуры произвольного одномерного массива целых чисел (в пределах знакового целого типа) вывести на экран произведение...

Массив. В массиве найти произведение отрицательных чисел
1.В массиве с1, с2 , ..., с40 найти произведение отрицательных чисел. program Proiz1; const n=40; Type...

volvo

Супер-модератор

33402 / 21512 / 8236

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

Сообщений: 36,913

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

12.12.2016, 22:55

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

Решение

Средствами .NET - вот так:

Pascal
1
2
3
4
5
6
begin
  var a := arr(1, 2, 3, 4, 5, 6, 7, 8);
  var ix := Range(0, a.Length - 1);
  writeln(ix.Cartesian(ix).Where(T -> (Abs(T[0] - T[1]) > 3) and (T[0] < T[1])).ToArray().
          Select(T -> a[T[0]]*a[T[1]]).Max());
end.

, а обычным Паскалем - скучно.

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

raxper

Эксперт

30234 / 6612 / 1498

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

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

Блог

12.12.2016, 22:55

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

В массиве С[1.12] найти произведение чисел, меньших или равных 10
В массиве С найти произведение чисел, меньших или равных 10

В массиве найти произведение всех чисел кратных трем
помогите решить лабу.... (извините за плохой перевод... перевела как смогла) Варіант 13. 1. В даному масиві з n цілих чисел...

В массиве с n элементами, вывелось произведение всех чисел массива между собой
Никак не могу понять как составить код чтобы в массиве с n элементами, вывелось произведение всех чисел массива между собой. Т.е a:= 1 2 3...

В массиве A[100],содержащем целые положительные числа, найти сумму максимального количества чисел,при этом их произведение не должно превышать число 3
В массиве A,содержащем целые положительные числа, найти сумму максимального количества чисел,при этом их произведение не должно превышать...

В массиве A(m,n) в каждом столбце найти минимум, умножить каждый минимум на 5 и найти произведение этих чисел.
В массиве A(m,n) в каждом столбце найти минимум, умножить каждый минимум на 5 и найти произведение этих чисел. помогите решить задачу...

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

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

Новые блоги и статьи Все статьи Все блоги /
10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .
Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .

Наверх