Срочно! Надо составить программу в PascalABС

Question

Срочно! Надо составить программу в PascalABС

---

Answer 1

Var
  z: array[0..9]of real = (-6, 98, -45, 9, 4, -7, -12, 32, 1, 3);
  sum: real;
  i: integer;
 begin
  for i := 0 to 9 do
    if(z[i] < 0) then sum := sum + z[i];
  write(sum);
end.