0 / 0 / 0
Регистрация: 20.05.2010
Сообщений: 36
1

В последовательности действительных чисел a1, a2, …, an есть только положительные и отрицательные элементы. Вычислить произведение отрицательн

20.05.2010, 16:22. Показов 6088. Ответов 4
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
В последовательности действительных чисел a1, a2, …, an есть только положительные и отрицательные элементы. Вычислить произведение отрицательных элементов P1 и произведение положительных элементов Р2. Указать какое произведение по модулю больше.

Помогите плз на паскале решить.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
20.05.2010, 16:22
Ответы с готовыми решениями:

В последовательности действительных чисел a1, a2, ..., aN есть только положительные и отрицательные элементы.
Я понимаю что это очень простая и глупая задачка.. но у меня ступор некий возник.. -->в...

В последовательности действительных чисел a1,a2,...,an есть только положительные и отрицательные элементы
В последовательности действительных чисел a1,a2,...,an есть только положительные и отрицательные...

В массиве из 10 чисел есть положительные и отрицательные элементы. Вычислить произведение отрицательных элементов массива
program ik; uses crt; var p: integer; mas: array of integer; i: integer; begin...

В массиве из 10 чисел есть положительные и отрицательные элементы. Вычислить сумму отрицательных элементов массива
Помогите пожалуйста!

4
773 / 578 / 324
Регистрация: 17.06.2009
Сообщений: 1,188
20.05.2010, 16:26 2
Pascal
1
2
3
4
5
6
7
8
9
10
p1:=1;
p2:=1;
for i:=1 to n do
begin
if a[i]>0 then p1:=p1*a[i];
if a[i]<0 then p2:=p2*a[i];
end;
if p1>abs(p2) then writeln('произведение положительных больше abs произведения отрицательных')
else if p1<abs(p2) then writeln('abs произведение отрицательных больше произведения положительных')
else writeln('произведения равны');
1
0 / 0 / 0
Регистрация: 20.05.2010
Сообщений: 36
20.05.2010, 18:38  [ТС] 3
подскажите как объявить a[i].
0
773 / 578 / 324
Регистрация: 17.06.2009
Сообщений: 1,188
20.05.2010, 19:29 4
подскажите как объявить a[i].
Pascal
1
2
const n=10;
var a: array[1..n] of real;
0
0 / 0 / 0
Регистрация: 20.05.2010
Сообщений: 36
20.05.2010, 20:27  [ТС] 5
спасибо!
0
20.05.2010, 20:27
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
20.05.2010, 20:27
Помогаю со студенческими работами здесь

Дан линейный массив. В массиве из 10 чисел есть отрицательные и положительные элементы. Вычислить сумму положительных элементов массива
Дан линейный массив. В массиве из 10 чисел есть отрицательные и положительные элементы. Вычислить...

Дана последовательность действительных чисел среди которых есть положительные и отрицательные числа заменить нулями
Дана последовательность действительных чисел среди которых есть положительные и отрицательные числа...


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

Новые блоги и статьи
Как проводить научные вычисления на Python
InfoMaster 15.01.2025
Python стал одним из наиболее востребованных языков программирования в области научных вычислений благодаря своей простоте, гибкости и обширной экосистеме специализированных библиотек. Научные. . .
Создание игры типа Minecraft на PyGame/Python: пошаговое руководство
InfoMaster 15.01.2025
В данном руководстве мы рассмотрим процесс создания игры в стиле Minecraft с использованием библиотеки PyGame на языке программирования Python. Этот проект идеально подходит как для начинающих. . .
Как создать свою первую игру в стиле Doom на Unreal Engine
InfoMaster 15.01.2025
Разработка шутера от первого лица в стиле классического Doom представляет собой увлекательное путешествие в мир игрового программирования, где сочетаются творческий подход и технические навыки. . . .
Параллельное программировани­е: основные технологии и принципы
InfoMaster 15.01.2025
Введение в параллельное программирование Параллельное программирование представляет собой фундаментальный подход к разработке программного обеспечения, который позволяет одновременно выполнять. . .
Как написать микросервис на C# с Kafka, MediatR, Redis и GitLab CI/CD
InfoMaster 15.01.2025
В современной разработке программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот подход позволяет разделить сложную систему. . .
Что такое CQRS и как это реализовать на C# с MediatR
InfoMaster 15.01.2025
Концепция CQRS и её роль в современной разработке В современном мире разработки программного обеспечения архитектурные паттерны играют ключевую роль в создании масштабируемых и поддерживаемых. . .
Как настроить CI/CD с Azure DevOps
InfoMaster 15.01.2025
CI/ CD, или непрерывная интеграция и непрерывное развертывание, представляет собой современный подход к разработке программного обеспечения, который позволяет автоматизировать и оптимизировать процесс. . .
Как настроить CI/CD с помощью Jenkins
InfoMaster 15.01.2025
Введение в CI/ CD и Jenkins В современной разработке программного обеспечения непрерывная интеграция (CI) и непрерывная доставка (CD) стали неотъемлемыми элементами процесса создания качественных. . .
Как написать микросервис на Go/Golang с Kafka, REST и GitHub CI/CD
InfoMaster 14.01.2025
Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .
Как написать микросервис с нуля на C# с RabbitMQ, CQRS, Swagger и CI/CD
InfoMaster 14.01.2025
В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .
Как создать интернет-магазин на PHP и JavaScript
InfoMaster 14.01.2025
В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .
Как написать Тетрис на Ассемблере
InfoMaster 14.01.2025
Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru