Найдите сумму квадратов неотрицательных элементов в заданном целочисленном одномерном массиве . сделайте пожалуйста в паскале
Answers & Comments
sellsaccountvar a:longint; n, i:integer; s:array [1..10000] of integer; begin read(n); a:=0; for i:=1 to n do read (s[i]); for i:=1 to n do if s[i]>=0 then a:=a+sqr(s[i]); writeln(a); end.
Answers & Comments
n, i:integer;
s:array [1..10000] of integer;
begin
read(n);
a:=0;
for i:=1 to n do
read (s[i]);
for i:=1 to n do
if s[i]>=0 then a:=a+sqr(s[i]);
writeln(a);
end.