Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
KristinaSheldon
0 / 0 / 0
Регистрация: 02.04.2011
Сообщений: 2
#1

Найти произведение отрицательных элементов этого массива - Turbo Pascal

07.04.2011, 11:45. Просмотров 718. Ответов 1
Метки нет (Все метки)

1. Сформировать массив из k целых чисел. Значение элементов вводятся с клавиатуры. Найти произведение отрицательных элементов этого массива.
2. Сформировать массив из n вещественных чисел на промежутке от А до В. Найти сумму положительных элементов этого массива.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.04.2011, 11:45
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти произведение отрицательных элементов этого массива (Turbo Pascal):

Найти произведение отрицательных элементов массива - Turbo Pascal
В одномерном массиве, состоящем из n вещественных элементов, вычислить: 1) произведение отрицательных элементов массива; 2) сумму...

Найти произведение отрицательных элементов массива - Turbo Pascal
Исправьте пожалуйста,если не прав. const k=100; var i,s,n:integer; a:array of integer; begin readln(n);

Найти произведение квадратов отрицательных элементов массива - Turbo Pascal
Найти произведение квадратов отрицательных элементов массива A={a}, удовлетворяющих условию a>=с/d. Использовать динамическое выделение...

Найти произведение элементов массива, количество отрицательных элементов - Turbo Pascal
1) Создать массив из 5-ти элементов - любых целочисленных констант. Вычислить произведение всех элементов массива. 2) Создать массив...

Найти произведение отрицательных элементов из первых 4 строк массива - Turbo Pascal
Дан двумерный массив M на N. Найти произведение его отрицательных элементов из первых 4 строк массива. сформировать 4 новых вектора...

Найти произведение отрицательных элементов массива значение которых больше C - Turbo Pascal
Дан одномерный массив из 10-ти целых чисел,заполненные случайным образом: a)Найти произведение отрицательных элементов массива значение...

1
Zverit
Уничтожитель печенек
277 / 205 / 21
Регистрация: 07.02.2010
Сообщений: 724
07.04.2011, 12:50 #2
По первой задаче
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
const n=10;
var
i,p : integer;
mas : array [1..n] of integer;
begin
for i:=1 to n do
readln (mas[i]);
p:=1;
for i:=1 to n do
if mas [i]<0 then p:=p*mas[i];
writeln('Произведение отрицательных элементов: ', p);
readln;
end.
Добавлено через 9 минут
И вторая.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
const n=10;
var
i : integer;
p : real;
mas : array [1..n] of real;
begin
for i:=1 to n do
readln (mas[i]);
p:=1;
for i:=1 to n do
if mas [i]>0 then p:=p*mas[i];
writeln('Произведение положительных элементов: ', p:3:2);
readln;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.04.2011, 12:50
Привет! Вот еще темы с ответами:

Найти произведение отрицательных элементов массива, значение которых кратно 2 и 5 - Turbo Pascal
Дан одномерный массив из 10 целых чисел, заполненный случайным образом. а) Найти произведение отрицательных эл-тов массива , значение...

Найти среднее арифметическое модулей отрицательных и произведение положительных элементов массива - Turbo Pascal
Задан вектор А={Аn}. Найти среднее арифметическое модулей отрицательных и произведение положительных элементов.

Расположить элементы массива по убыванию их модулей и найти произведение индексов отрицательных элементов - Turbo Pascal
расположить элементы массива V по убыванию их модулей и найти произведение индексов отрицательных елементив.Оформить подпрограмму...

Найти сумму отрицательных, количество положительных и произведение ненулевых элементов одномерного массива - Turbo Pascal
Помогите пожалуйста решить задачу на одномерный массив. Одномерный массив Х(15) считать из файла*txt(файл создать самим). Найти сумму...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru