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

Положительные элементы массива разделить на сумму положительных, а отрицательные - на сумму отрицательных

11.06.2016, 00:23. Показов 1693. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Задача состоит в том чтоб описать и использовать следующие функции:
Ввести массив с клавиатуры, изменение массива, вывод измененного массива.
Дан одномерный массив а=(а1, а2,....аn)...Найти сумму положительных и отрицательных элементов массива.Положительные разделить на сумму положительных, а отрицательные на сумму отрицательных.вывести на экран измененный массив.
0
Лучшие ответы (1)
11.06.2016, 00:23
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
11.06.2016, 00:23
Ответы с готовыми решениями:

Определить сумму и количество положительных элементов массива. Увеличить все отрицательные элементы на 10
Определить сумму и количество положительных элементов массива Xi, (i = 1,...,15) . Увеличить все отрицательные элементы на 10. Желательно с...

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

Для массива a найти сумму положительных и отрицательных элементов
Написать программу на Делфи

2
Почетный модератор
 Аватар для Puporev
64305 / 47602 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
11.06.2016, 15:39 2
Лучший ответ Сообщение было отмечено ефынф как решение

Решение

Delphi
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
26
27
28
procedure TForm1.Button1Click(Sender: TObject);
var a:array of real;
    n,i:integer;
    sp,so:real;
begin
randomize;
n:=strtoint(Edit1.Text);
setlength(a,n);
Label1.Caption:='';
Label4.Caption:='';
sp:=0;
so:=0;
for i:=0 to n-1 do
 begin
  a[i]:=-10+20*random;
  Label1.Caption:=Label1.Caption+format('%.2f',[a[i]])+'  ';
  if a[i]>0 then sp:=sp+a[i]
  else if a[i]<0 then so:=so+a[i];
 end;
Label2.Caption:='Сумма положительных='+format('%.2f',[sp]);
Label3.Caption:='Сумма отрицательных='+format('%.2f',[so]);
for i:=0 to n-1 do
 begin
  if(a[i]>0)and(sp>0)then a[i]:=a[i]/sp
  else if(a[i]<0)and(so<0)then a[i]:=a[i]/so;
  Label4.Caption:=Label4.Caption+format('%.2f',[a[i]])+'  ';
 end;
end;
1
0 / 0 / 1
Регистрация: 16.01.2016
Сообщений: 23
11.06.2016, 18:27  [ТС] 3
Мне нужно записать это в таком виде...но что-то не получается
Delphi
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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
program Project3; 
{$APPTYPE CONSOLE} 
Uses SysUtils; 
type matr=array [1..6] of Integer; 
var a:matr; 
procedure Vn(n:Integer; 
var x:matr); 
var i:Integer; 
begin 
Writeln('Enter array'); 
for i:=1 to n do 
Read (x[i]); 
Readln; 
end; 
procedure Vl(n:Integer; 
var x:matr); 
Var i:Integer; 
begin 
Writeln('Ex array'); 
for i:=1 to n do 
Write (x[i]:3); 
Writeln; 
end; 
procedure Vk(n:Integer; 
Var x:matr); 
Var i:Integer;sd,sv:Real; 
begin 
sd:=0; sv:=0; 
for i:=1 to n do 
if(a[i]>0) then 
sd:=sd+a[i] 
else 
sv:=sv+a[i]; 
for i:=1 to n do 
if (a[i]>0) then 
a[i]:=a[i]/sd 
else if (a[i]<0) then 
a[i]:=a[i]/sv; 
end; 
begin 
Vn(6,a); 
Vk(6,a); 
Vl(6,a); 
Readln 
end.
Где sd сумма положительных, а sv - сумма отрицательных
0
11.06.2016, 18:27
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
11.06.2016, 18:27
Помогаю со студенческими работами здесь

Записать положительные элементы массива X подряд в массив Y. Вычислить сумму элементов массива
Всем привет, меня данная проблема, у нс в колледже мягко говоря все преподаватель озверели и на практике просто ни чего не объясняя дают...

Элементы массива S(m,m) разделить на сумму элементов, расположенных на главной диагонали
Помогите пожалуйста решить.Массив 3х3.Вроде-бы написал все правильно но не могу реализовать механизм вывода в виде матрицы.Сделать нужно...

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

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

Все положительные элементы массива разделить на сумму наименьшего и наибольшего элементов.
Я только начинаю работать с массивами и у меня не получается решить задание. Суть такова: &quot;все положительные элементы данного массива...


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

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

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
Использование кэша Laravel - полный гайд
bytestream 18.02.2025
Кэширование - один из наиболее эффективных способов повышения производительности веб-приложений. В современном мире, где скорость загрузки страниц напрямую влияет на удержание пользователей и. . .
Создаем REST API в Laravel с аутентификацией и Passport
bytestream 18.02.2025
Разработка современных веб-приложений все чаще требует создания надежного и хорошо структурированного API. REST API стал стандартом де-факто для построения взаимодействия между клиентской и серверной. . .
Пайплайны в Laravel - полный гайд
bytestream 18.02.2025
Разработка современных веб-приложений часто требует обработки сложных процессов, состоящих из множества последовательных шагов. Например, при создании системы комментариев может потребоваться. . .
Как правильно использовать @required в Symfony
bytestream 18.02.2025
При разработке приложений на Symfony мы часто сталкиваемся с необходимостью внедрения зависимостей. Фреймворк предоставляет несколько способов управления этим процессом, и одним из таких инструментов. . .
Система безопасности в Laravel: возможности и примеры
Wired 18.02.2025
Каждый день появляются новые виды атак и уязвимостей, которые могут поставить под угрозу конфиденциальные данные пользователей и функционирование всей системы. В этом контексте выбор надежного. . .
Давайте сравним Django и Laravel
Wired 18.02.2025
Django и Laravel - два мощных инструмента, которые часто сравнивают между собой. Оба фреймворка предлагают разработчикам богатый набор возможностей для создания масштабируемых веб-приложений, но. . .
Laravel или React - что лучше?
Wired 18.02.2025
В разработке веб выбор правильного инструмента часто определяет успех всего проекта. Особенно интересным представляется сравнение Laravel и React - двух популярных технологий, которые часто. . .
Laravel 11: новые возможности, гайд по обновлению
Wired 18.02.2025
Laravel 11 - это новая масштабная версия одного из самых популярных PHP-фреймворков, выпущенная в марте 2024 года. Эта версия продолжает традицию внедрения передовых технологий и методологий. . .
Миграции в Laravel
Wired 18.02.2025
Разработка веб-приложений на Laravel неразрывно связана с управлением структурой базы данных. При работе над проектом часто возникает необходимость вносить изменения в схему базы данных - добавлять. . .
Аутентификация в Laravel
Wired 18.02.2025
В современном мире веб-разработки безопасность пользовательских данных становится критически важным аспектом любого приложения. Laravel, как один из самых популярных PHP-фреймворков, предоставляет. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru