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

Question

Информатика

Рафаил

24 января, 14:42

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

+4

Ответы (2)

Знаете ответ на вопрос?

Поликарпий · Answer 1

n = int (input ())

s = 0

for i in range (n) :

m = int (input ())

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

print (s)

Власий · Answer 2

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.