Question

Заполнить массив из 10 элементов случайными числами в интервале [-10,10] и подсчитать сумму всех
отрицательных элементов.

Answer 1

var a:array [1..10] of integer;   
   i,s:integer;
begin 
randomize; 
 s:=0; 
 for i:=1 to 10 do   
 begin 
    a[i]:=random(20)-10;   
   write (a[i],' ');   
   if a[i] < 0 then s:=s+a[i];  
    end; 
writeln; 
 writeln ('Summa: ',s); 
 readln;
end.