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

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

24.12.2013, 14:33. Показов 1383. Ответов 7
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Подсчитать количество положительных и сумму отрицательных элементов массива А, состоящего из 11 элементов.
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.12.2013, 14:33
Ответы с готовыми решениями:

Найти сумму положительных (SP) и количество отрицательных (PO) элементов массива
Помогите пожалуйста с составлением программы. Условие: Найти сумму положительных (SP) и...

Найти сумму положительных элементов и количество отрицательных элементов двумерного массива вещественного типа
Помогите, пожалуйста, сделать вот ету задачу в Free Pascal: создайте программу "Подсчет" в которой...

Подсчитать сумму и количество положительных и отрицательных элементов массива.
ПРивет, помогите пожалуйста с массивами, а то ступор.. 1.дан одномерный массив Xn. Подсчитать...

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

7
78 / 80 / 70
Регистрация: 18.12.2013
Сообщений: 211
24.12.2013, 16:20 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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 doit;
 
uses crt;
label metka;
var
 A: array [1..11] of integer;
 i,p,s: byte;
 Begin
  Textcolor (12);
   For i:=1 to 11 do
     Begin
       A[i]:=random(15)-10;
       Write(A[i]:4);
     End;
  Writeln;
  Textcolor (10);
   For i:=1 to 11 do
    Begin
     If A[i]<=0 then
      s:=s+abs(A[i])
      Else
        Inc(p)
    End;
  Writeln('Сумма отрицательных элементов: -',s,' Количество положительных элементов: ',p);
 End.
1
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
32835 / 21172 / 8148
Регистрация: 22.10.2011
Сообщений: 36,431
Записей в блоге: 8
24.12.2013, 16:51 3
metka не нужна, а вот переменные s и p надо инициализировать. Не проще было описать s : Integer, и считать сумму самих элементов, а не их модулей?
1
1 / 1 / 0
Регистрация: 16.12.2013
Сообщений: 11
24.12.2013, 17:00  [ТС] 4
Извините,а можно как-нибудь упрощенный вариант?) (не которые операторы просто не изучил)
0
78 / 80 / 70
Регистрация: 18.12.2013
Сообщений: 211
24.12.2013, 17:05 5
Цитата Сообщение от UI Посмотреть сообщение
metka не нужна, а вот переменные s и p надо инициализировать. Не проще было описать s : Integer, и считать сумму самих элементов, а не их модулей?
Да метка у меня от другой программы осталась забыл удалить)

P.S. Ах вот в чем проблема, я же их "byte"ом определил, поэтому пришлось модулем пользоваться....
Вот конечный результат

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program doit;
uses crt;
var
 A: array [1..11] of integer;
 i,p,s: integer;
 Begin
  Textcolor (12);
   For i:=1 to 11 do
     Begin
       A[i]:=random(20)-10;
       Write(A[i]:4);
     End;
  Writeln;
  Textcolor (10);
   For i:=1 to 11 do
    Begin
     If A[i]<=0 then
      s:=s+A[i]
      Else
        Inc(p)
    End;
  Writeln('Сумма отрицательных элементов: ',s,' Количество положительных элементов: ',p);
 End.
0
1 / 1 / 0
Регистрация: 16.12.2013
Сообщений: 11
24.12.2013, 17:18  [ТС] 6
Don_Omare, а как бы мне сделать так что бы 11 элементов вводил я,а не рандомно
0
78 / 80 / 70
Регистрация: 18.12.2013
Сообщений: 211
24.12.2013, 17:31 7
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от Zyzz89 Посмотреть сообщение
Don_Omare, а как бы мне сделать так что бы 11 элементов вводил я,а не рандомно
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program doit;
uses crt;
var
 A: array [1..11] of integer;
 i,p,s: integer;
 Begin
  Textcolor (12);
   For i:=1 to 11 do
     Begin
       Write('Введите A[',i,']->');
       Readln(A[i]);
     End;
  Writeln;
  Textcolor (10);
   For i:=1 to 11 do
    Begin
     If A[i]<=0 then
      s:=s+A[i]
      Else
        Inc(p)
    End;
  Writeln('Сумма отрицательных элементов: ',s,' Количество положительных элементов: ',p);
 End.
Добавлено через 28 секунд
1
1 / 1 / 0
Регистрация: 16.12.2013
Сообщений: 11
24.12.2013, 17:38  [ТС] 8
спасибо большое!!
0
24.12.2013, 17:38
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.12.2013, 17:38
Помогаю со студенческими работами здесь

В массиве С (n) подсчитать количество отрицательных и сумму положительных элементов
В массиве С (n) подсчитать количество отрицательных и сумму положительных элементов

В массиве С(n) подсчитать количество отрицательных и сумму положительных элементов
Помогите. Вот задача - Разделение по знаку. В массиве С(n) подсчитать количество отрицательных и...

Подсчитать количество положительных и отрицательных элементов массива
Ввести массив а(10). Подсчитать колличество положительных и отрицательных элементов массива

Подсчитать количество положительных и отрицательных элементов массива
Вариант 1 1. Заполнить с клавиатуры массив из 10 элементов. Подсчитать количество положительных и...

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

Подсчитать количество положительных и отрицательных элементов массива
Написать программу которая создает массив из N чисел и с помощью функции подсчитывает кол-во...


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

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

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