Найти сумму чисел, предшествующих первому отрицательному в последовательности данных чисел

12.05.2015, 13:52. Показов 915. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

Найти сумму чисел, предшествующих первому отрицательному в последовательности данных чисел. (Должна многократно выполняться процедура ввода read(x).)
Исправить задание с while, убрать из цикла if

Pascal
1
2
3
4
5
6
7
8
9
10
11
var a,s:integer;
begin
a:=1;
s:=0;
while a>=0 do
 begin
  read(a);
  if a>=0 then s:=s+a;
 end;
write('S=',s)
end.

Вообщем, вот код, кстати с ним мне помог хороший человек с этого форума. Сейчас препод придралась к IFу внутри цикла, мол его можно выполнить без этого IFа... Как? Выручайте.

Добавлено через 29 минут
Все, не надо, сделал так вот

Pascal
1
2
3
4
5
6
7
8
9
10
11
var a,s:integer;
begin
a:=0;
s:=0;
while a>=0 do
 begin
   s:=s+a;
   read(a);
 end;
write('S=',s)
end.

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

12.05.2015, 13:52

Ответы с готовыми решениями:

Найти сумму чисел, предшествующих первому отрицательному в последовательности данных чисел
Цикл с предусловием: Найти сумму чисел, предшествующих первому отрицательному в последовательности данных чисел. (Должна многократно...

Найти сумму последовательности чисел, предшествующих первому введенному нулю
Написать программу поиска суммы последовательности чисел, вводимых с клавиатуры, предшествующих первому введенному нулю. пример: 1 2 3 -4...

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

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

12.05.2015, 13:52

Помогаю со студенческими работами здесь

Найти сумму элементов массива, предшествующих первому отрицательному элементу
Дан массив Х(n). Найти сумму элементов массива, предшествующих первому отрицательному элементу. Если среди элементов массива нет...

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

В файле задана последовательность целых чисел, найти сумму чисел, предшествующих первому отрицательному
В файле задана последовательность целых чисел, найти сумму чисел, предшествующих первому отрицательному.

Найти сумму чисел, предшествующих первому отрицательному числу в файле
Задача: 1) Найти сумму чисел, предшествующих первому отрицательному числу в файле. Исходник: unit Unit1;

Файл: Найти сумму чисел, предшествующих первому отрицательному числу в файле
В файл записать целые числа. Найти сумму чисел, предшествующих первому отрицательному числу в файле. Помогите, пожалуйста, разобраться....

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных через динамический список в справочнике Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .

Наверх