2я задача (массив одномерный, размерность и содержимое с клавиатуры)
var
i,n:integer;
sum:real;
a: array [1..200] of real;
begin
readln(n);
for i=1 to n do
readln(a[i]);
for i=1 to n do
begin
if (a[i]<0) then
sum:=sum+a[i];
end;
writeln(sum);
readln();
end.