Troll17
1

Определите частное от деления суммы положительных элементов массива на модуль суммы отрицательных элементов

22.02.2011, 17:59. Показов 5736. Ответов 1
Метки нет (Все метки)

1.определите частное от деления суммы положительных элементов массива на модуль суммы отрицательных элементов.
2.в масиве хранятся сведения о количестве осадков выпавших за каждый день июня. определите в какой период выпало больше осадков: в первой половине июня или во второй.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.02.2011, 17:59
Ответы с готовыми решениями:

Определить частное от деления суммы положительных элементов массива на модуль суммы отрицательных элементов
Определить частное от деления суммы положительных элементов массива на модуль суммы отрицательных...

Определить частное от деления суммы положительных элементов массива на модуль суммы отрицательных элементов
1)Определить частное от деления суммы положительных элементов массива на модуль суммы отрицательных...

Вычислить частное от деления суммы положительных элементов матрицы на сумму всех отрицательных
В двухмерном массиве вычислить частное от деления суммы всех положительных элементов на сумму всех...

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

1
66 / 63 / 63
Регистрация: 15.12.2010
Сообщений: 150
22.02.2011, 20:20 2
Лучший ответ Сообщение было отмечено как решение

Решение

1.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
var a:array[1..100]of integer;
    i,sp,so:integer;
    ch:real;
begin
clrscr;
randomize;
for i:=1 to 15 do
    begin
         a[i]:=random(10)-5;
         write(a[i],' ');
         if a[i]>0 then sp:=sp+a[i];
         if a[i]<0 then so:=so+a[i];
    end;writeln;
ch:=sp/abs(so);
write(ch:3:4);
readln;
end.
Добавлено через 7 минут
2.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
var a:array[1..30]of integer;
    i,s1,s2:integer;
begin
clrscr;
randomize;
for i:=1 to 30 do
    begin
         a[i]:=random(15);
         write(a[i],' ');
    end;writeln;
for i:=1 to 15 do s1:=s1+a[i];
for i:=16 to 30 do s2:=s2+a[i];
if s1>s2 then writeln('v pervoi polovine vipalo bolshe osadkov')
else if s2>s1 then writeln('vo vtoroi polovine vipalo bolshe osadkov')
else writeln('osadkov vipalo odinakovo');
readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.02.2011, 20:20
Помогаю со студенческими работами здесь

Массивы: Определить частное от деления суммы положительных элементов массива на модуль суммы отрицательных элементов
Всем привет, учусь в 9-ом классе. Помогите решить 3 задачи, пожалуйста. 1) Известны данные о...

Определить частное от деления суммы положительных элементов массива на модуль суммы отрицательных элементов
Помогите написать программу на с++ пожалуйста. Желательно все подробно(полностью программу) Дан...

Определить частное от деления суммы положительных элементов массива на модуль суммы отрицательных элементов
Помогите написать программу на с++, желательно полностью(с шапкой) Дан массив. Определить...

Если модуль суммы положительных элементов больше модуля суммы отрицательных элементов, то заменить все положитьные элементы на нули.
нужна помощь, не понимаю как сделать:( Дан массив F1,...,F20.Если модуль суммы положительных...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru