Дан одномерный массив из 15 целых случайных чисел из диапазона [-10;20] найдите сумму...

Question

Дан одномерный массив из 15 целых случайных чисел из диапазона [-10;20] найдите сумму отрицательных чисел. Помогите прошу очень

Answer 1

Var  a:array [1..15] of integer; 
 i, sum:integer;
begin
For i:=1 to 15 do
begin
a[i]:=random(31)-10;
Write(a[i],' ');
If a[i]<0<br>then
sum:=sum+a[i];
end;Writeln;
Writeln(sum);
end.

Answer 2

#include using namespace std;


int main() {int n=0,m;for (int i = 0; i < 15; i++) { cin >> m; if (m < 0) n += m;}cout << n;return 0;}

Comments

https://yadi.sk/i/lqjhi1dJ3QqFoS

---

вот исходник