Дан массив, состоящий из 10 элементов. заполнить массив случайными числами от -100 до 100...

Question

Дан массив, состоящий из 10 элементов. заполнить массив случайными числами от -100 до 100 и подсчитать сумму отрицательных элементов массива.
помогите пожалуйста!

Comments

язык программирования какой?

---

Паскаль abc

Answer 1

Const N=10;
var A:array[1..N] of integer;
i,sum:integer;
begin
for i:=1 to N do begin
A[i]:=random(-100,100);
write(A[i],' ');
end;
for i:=1 to N do
if A[i]<0 then sum:=sum+A[i];<br>write('     ',sum);
end.

Comments

спасибо