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

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

29.11.2017, 18:07. Просмотров 3216. Ответов 2

Даны целые числа A1, A2, …, An. Получить сумму положительных и число отрицательных членов последовательности A1, A2, …, An.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.11.2017, 18:07
Ответы с готовыми решениями:

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

Получить сумму положительных и число отрицательных членов указанной последовательности
Дано натуральное число n, целые числа a1, a2, ..., an. Получить сумму положительных и число...

Получить сумму положительных и количество отрицательных членов последовательности
Дан натуральное число n и последовательность дейстивительных чисел a1,a2, ..., an. Получить сумму...

Получить сумму положительных и количество отрицательных членов последовательности
Сделал программу - работает(проверил) но препод говорит, что сначала должна идти дополнительная...

__________________
2
Эксперт Pascal/Delphi
6617 / 4450 / 4739
Регистрация: 05.06.2014
Сообщений: 21,869
29.11.2017, 19:41 2
Лучший ответ Сообщение было отмечено жиза как решение

Решение

Получить сумму положительных и число отрицательных членов указанной последовательности
1
Модератор
8409 / 4160 / 2875
Регистрация: 17.08.2012
Сообщений: 13,262
30.11.2017, 01:21 3
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

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
var n, a, s, k, i: integer;
begin
  s := 0;
  k := 0;
  repeat
    write('N > 0;  N = ');
    readln(n)
  until n > 0;
  for i := 1 to n do
    begin
      write('A', i, ' = ');
      readln(a);
      if a < 0
        then inc(k)
        else s := s + a
    end;
  if s > 0
    then writeln('Сумма положительных чисел последовательности: ', s)
    else writeln('Последовательность не содержит положительных чисел.');
  if k > 0
    then writeln('Количество отрицательных чисел последовательности: ', k)
    else writeln('Последовательность не содержит отрицательных чисел.');
  readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.11.2017, 01:21

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

Получить сумму положительных и отрицательных членов последовательности a1, ..an
Дано натуральное число n, действительные числа a1, ..an ..получить сумму положительных и...

Получить сумму положительных и отрицательных членов последовательности
Даны: 1) Натуральное число n, целые числа а1,...., аn. Получить сумму положительных и отрицательных...

Получить сумму положительных и отрицательных членов последовательности а1,....,аn.
Даны: 1) Натуральное число n, целые числа а1,...., аn. Получить сумму положительных и отрицательных...

Массив: Вычислить сумму положительных, четных элементов, > 5 и сумму отрицательных членов последовательности
Дана последовательность, состоящая из n чисел, вводимых пользователем с клавиатуры. Вычислить сумму...

Сумма положительных и количество отрицательных членов последовательности
Мое задание выглядит так: Даны натуральное число n и натуральные a1,…,an, где n&lt;=3000. Получить...

Получить сумму положительных и число отрицательных членов последовательности
Одномерный массив Даны натуральные числа n, a1, a2, … ,an. В последовательности a1, a2,…,an...


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

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

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