Написать полностью программу Turbo Pascal Задание: Найти сумму отрицательных элементов...

Question

Написать полностью программу Turbo Pascal Задание: Найти сумму отрицательных элементов массива

Comments

как задается массив?

---

[1..10]

---

сорре

---

[-10;10]

---

рандом? с клавиатуры ? по формуле?

---

рандом

---

колво элементов рандом? с клавы?

---

Не имеет значения

Answer 1

Const
    n = 10;

var
    a: array[1..n] of integer;
    i, s: integer;

begin
    s := 0;
    for i := 1 to n do
    begin
        a[i] := random(20) - 10;
        if (a[i] < 0) then s := s + a[i];
    end;
    writeln(s);
end.