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

Question

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

2) какие значения может принимать целая переменная Y если в программе записано : Y :=10+ ranodom (5)?

3) составьте программу заполнения массива из 100 чисел случайными значениями из диапозона от -20до 20. подсчитайте в этом массиве колличество положительных и колличество отрицательных значения

Answer 1

1.

random(10)+1;

random(21)-10;

random(100)+50;

2.y =[10;14]

3.

var

arr = array[1..100] of real;

rand : real;

i : integer;

p,n:integer;

begin

for i := 1 to 100 do

begin

arr[i] := random(41)-20;

i := i+1;

end;

for i :=1 to 100 do

begin 

if arr[i] <0 then</p>

begin

n := n+1;

end;

if arr[i]>0 then

begin

p := p+1;

end;

end;

writeln("positives: ", p);

writeln("negatives: ",n);

readln;

end.

 

 

Answer 2

1)

a:=1+Random(10);

 

a:=-10+Random(20);

 

a:=50+Random(50);

 

2)

10, 11, 12, 13, 14

 

3)

Program zadacha;

Const n=100;

Type massiv=Array[1..1000] of Int64;

Var a:massiv;

       i:Int64;

Begin

Randomize;

For i:=1 to n do

a[i]:=-20+Random(41);

End.