Регистрация
sophiek777
14.09.2021 11:41
Информатика
Есть ответ 👍

решить http://images.vfl.ru/ii/1607677422/ce7c79b5/32624225.png

107
374
Посмотреть ответы 1

Ответы на вопрос:

umnikummmmmm
umnikummmmmm
4,6(29 оценок)

Паскаль.

var

 N, x, i, sum : integer;

begin

 readln(N);

 sum := 0;

 for i:=1 to N do begin

   readln(x);

   if x<0 then sum := sum + x;

 end;

 writeln(sum);

end.

Популярно: Информатика