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

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

05.03.2012, 20:38. Показов 2791. Ответов 1
Метки нет (Все метки)

В общем,ребята. Помогите написать код,буду очень признателен.
С клавиатуры вводится последовательность дробных чисел(окончание ввода-0) найти сумму всех чисел,количество отрицательных и количество положительных.
Заранее спасибо.
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.03.2012, 20:38
Ответы с готовыми решениями:

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

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

Ввести последовательность чисел, окончание ввода число 1000, определить количество отрицательных и минимум
2) Пользователь вводит последовательность чисел, окончание ввода число 1000, определить количество...

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

1
Mobile Software Engineer
Эксперт С++
5359 / 1578 / 956
Регистрация: 23.01.2011
Сообщений: 3,212
05.03.2012, 21:36 2
Лучший ответ Сообщение было отмечено как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
  CountPos, CountNeg: integer;
  Summa, Chislo: real;
begin
  writeln('Введите последовательность: ');
  repeat
    read(Chislo);
    Summa:=Summa+Chislo;
    if Chislo > 0 then inc(CountPos);
    if Chislo < 0 then inc(CountNeg);
  until Chislo = 0;
  writeln('Сумма всех чисел: ', Summa);
  writeln('Кол-во положительных: ', CountPos);
  writeln('Кол-во отрицательных: ', CountNeg);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.03.2012, 21:36

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

Найти сумму и количество всех положительных элементов массива, количество чисел = 0 и изменение знака всех чисел
спасибо всем сможет помочь

Найти количество отрицательных чисел, количество нулевых и подсчитать сумму положительных чисел
Т.к. я полный 0 в этом, вынужден обратиться к профи) надеюсь на вашу помощь. 1. Произвести...

Найти количество положительных чисел среди четырёх целых чисел. Если количество положительных чисел больше количества отрицательных,то найти максималь
Найти количество положительных чисел среди четырёх целых чисел. Если количество положительных чисел...

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


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

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

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