Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.93/15: Рейтинг темы: голосов - 15, средняя оценка - 4.93
0 / 0 / 0
Регистрация: 14.03.2013
Сообщений: 5
1

Массив: Найти сумму отрицательных и сумму положительных элементов и сравнить их по модулю.

14.03.2013, 19:10. Показов 3036. Ответов 2
Метки нет (Все метки)

1) Дан одномерный массив, который содержит не более 50 целых чисел. Найти сумму отрицательных и сумму положительных элементов и сравнить их по модулю.

Помогите пожалуйста)))
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.03.2013, 19:10
Ответы с готовыми решениями:

Массив. Определить сумму квадратных корней из положительных элементов и сумму квадратов отрицательных элементов
Дан массив B(N). Определить сумму квадратных корней из его положительных элементов и сумму...

Найти сумму положительных и отрицательных элементов массива
помогите решить: Найти сумму положительных и отрицательных элементов массива X(11) Добавлено...

Найти сумму отрицательных и количество положительных элементов матрицы
1)Найти сумму отрицательных и количество положительных элементов для матриц В(5,3) и С(4,3) 2)Дана...

Найти сумму положительных и произведение отрицательных элементов матрицы
ЦЕЛЬ РАБОТЫ. Задав двумерный массив вещественных данных (матрицу А), реализовать его обработку,...

__________________
2
10 / 10 / 11
Регистрация: 04.03.2013
Сообщений: 33
14.03.2013, 23:06 2
Лучший ответ Сообщение было отмечено thom green как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
program pr1;
uses crt;
const n=6;
var k:array[1..n] of integer;
i,s,s1:integer;
begin
 
randomize;
for i:=1 to n do
k[i]:=random(10)-5;
 
writeln('massiv');
for i:=1 to n do
write(k[i],' ');
writeln;
 
s:=0; s1:=0;
for i:=1 to n do
if k[i]>=0 then s:=s+k[i] else s1:=s1+k[i];
 
if s<=abs(s1) then
writeln('ìîäóëü ñóììû îòðèöàòåëüíûõ áîëüøå ÷åì ìîäóëü ñóììû ïîëîæèòåëüíûõ ýëåìåíòîâ')else
writeln('ìîäóëü ñóììû îòðèöàòåëüíûõ ìåíüøå ÷åì ìîäóëü ñóììû ïîëîæèòåëüíûõ ýëåìåíòîâ');
readln;
end.
1
0 / 0 / 0
Регистрация: 14.03.2013
Сообщений: 5
15.03.2013, 08:22  [ТС] 3
Спасибо!!!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.03.2013, 08:22

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

Найти сумму положительных и произведение отрицательных элементов массива
Помогите пожалуйста решить задачки на массив в паскале : 1-В массиве A(N) содержатся положительные...

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

Найти номера отрицательных элементов и среднеарифметическую сумму положительных элементов
сформировать одномерный массив целых чисел случайным образ n элементов,взятых из промежутка ....

Найти сумму отрицательных элементов и колличество положительных элементов.
Массив одномерный,n=15ю Элементы вводить с клавиатуры.Найти сумму отрицательных элементов и...


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

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

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