Дано n чисел. вычислите сумму квадратов отрицательных чисел

Question

Информатика

Еняха

13 января, 06:00

Дано n чисел. вычислите сумму квадратов отрицательных чисел

+4

Ответы (2)

Знаете ответ?

Клементина · Answer 1

Pascal ABC.

var

i, n, sum, a:integer;

begin

readln (n) ;

for i:=1 to n do

begin

readln (a) ;

if a<0 then sum:=sum+sqr (a) ;

end;

writeln (sum) ;

end.

Тимаха · Answer 2

n = int (input ())

s = 0

for i in range (n) :

m = int (input ())

if m<0: s+=m * * 2

print (s)