Question

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

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];
write('     ',sum);
end.