2.19 (б и в) и 2.20 полностью, с подробным решением

Program example_dom; 
var col_pol,col_otr,i,n,k,s:integer; 
a:array[1..100] of integer; 
Begin 
Randomize; writeln('Введите размерность: ');readln(n); 
For i:=1 to n do 
Begin 
a[i]:=-50+random(100); 
write(a[i]:4); 
end; 
s:=s+a[i]; 
inc(k); 
col_pol:=0; 
col_otr:=0; 
for i:=1 to n do 
begin 
if a[i]>0 then col_pol:=col_pol+1 
else col_otr:=col_otr+1; 
end; 
writeln('сумма элементов массив = ',s); 
writeln('количество положительных элементов=',col_pol); 
writeln('количество отрицательных элементов=',col_otr); 
readln; 
End.

Зачем вообще нужно знать какие-то права людям? Чтобы человек точно знал, на что он может рассчитывать в жизни. 
Человек, не разбирающийся в законодательстве, не знает о своих правах и обязанностях, не представляет, что нужно делать, если возникнет сложная ситуация, и беззащитен перед всевозможными неприятностями. Его можно заставить делать то, чего он не должен делать, или лишить того, на что он имеет право. 
Давне римская пословица гласит: "Там где право, там и защита". Поэтому есть смысл знать законы. Знать, чтоб защищаться. Чтоб чувствовать себя увереннее, а значит, свободнее. Чтоб знать свои права, но и не забывать про права других. Чтоб быть спокойнее за свое будущее.