1) Как, используя функцию random (X), можно получать числа в диапазонах: от 1 до 10, от -10…

1.random (10)+1; random (21) -10; random (100)+50; 2.y=[10; 14]3.vararr=array[1… 100] of real; rand: real; i: integer; p,n: integer; beginfor i: =1 to 100 dobeginarr[i]: =random (41) -20; i: =i+1; end; for i: =1 to 100 dobegin if arr[i] <0 thenbeginn: =n+1; end; if arr[i]>0 thenbeginp: =p+1; end; end; writeln ("positives: ", p); writeln ("negatives: ",n); readln; end.