Дан целочисленный массив размером 15.Найти сумму отрицательных элементов

Question

Дан целочисленный массив размером 15.Найти сумму отрицательных элементов

Answer 1

const n=15;

var m:array [1..n] of integer;

i,s:integer;

begin

write('Массив: ');

for i:=1 to n do

begin

m[i]:=random(41)-20;

if m[i] < 0 then s:=s+m[i];

write(m[i],'  ')

end;

writeln;

writeln('Сумма отрицательных элементов: ',s)

end.

Comments

А можно поподробнее

---

Что именно?

---

Начало

---

Там программ вар

---

Перед const можно добавить program summa;

---

var идёт после const

---

Хорошо спасибо