Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
KristinaSheldon
0 / 0 / 0
Регистрация: 02.04.2011
Сообщений: 2
#1

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

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

1. Сформировать массив из k целых чисел. Значение элементов вводятся с клавиатуры. Найти произведение отрицательных элементов этого массива.
2. Сформировать массив из n вещественных чисел на промежутке от А до В. Найти сумму положительных элементов этого массива.

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.04.2011, 11:45
Ответы с готовыми решениями:

Найти произведение отрицательных элементов массива
В одномерном массиве, состоящем из n вещественных элементов, вычислить:...

Найти произведение отрицательных элементов массива
Исправьте пожалуйста,если не прав. const k=100; var i,s,n:integer;...

Найти произведение квадратов отрицательных элементов массива
Найти произведение квадратов отрицательных элементов массива A={a},...

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

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

1
Zverit
Уничтожитель печенек
277 / 205 / 49
Регистрация: 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

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

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

Найти произведение положительных индексов массива и количество его отрицательных элементов
Дан массив А(10). Найти произведение положительных индексов массива и...


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

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

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