Для различных вводимых с клавиатуры целых чисел найдите сумму отрицательных чисел. В Паскале. Пожаааааааалуйста.
Для различных вводимых с клавиатуры целых чисел найдите сумму отрицательных чисел. В Паскале. Пожаааааааалуйста.
Гость
Ответ(ы) на вопрос:
Гостьvar n, a, sum: integer;
begin
read(n);
for i := 1 to n do
begin
read(a);
if (a < 0) then
sum += a;
end;
writeln(sum);
end.
Не нашли ответ?
Похожие вопросы