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

Ответы:
Вадик Ломов
09-02-2012 00:47

var n, a, sum: integer;beginread(n);for i := 1 to n do    begin    read(a);    if (a < 0) then        sum += a;    end;writeln(sum);end.

Также наши пользователи интересуются:

Картинка с текстом вопроса от пользователя Ира Русын

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Для различных вводимых с клавиатуры целых чисел найдите сумму отрицательных чисел. В Паскале. Пожаааааааалуйста.» от пользователя Ира Русын в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!