Заполнение значений элементов массива датчиком случайных чисел

до 49 включительно.

program datchik;
var x: array [1..20] of integer;
i: integer;
begin
for i := 1 to 20 do
begin

x [i] := random (100) – 50;
write( x[i],’ ‘ ); end;

end.

до 49 включительно.

program datchik;
var x: array [1..20] of integer;
i: integer;
begin
for i := 1 to 20 do
begin

x [i] := random (100) – 50;
write( x[i],’ ‘ ); end;

end.

-50 -47 36 -30 -23 17 -11 -34 -13 -8 -42 -3 -43 34 -45 -21 41 -14 27 -18

-50 -47 36 -30 -23 17 -11 -34 -13 -8 -42 -3 -43 34 -45 -21 41 -14 27 -18

randomize;

интервале:

[ 111, 555 ]
[ -122, 123 ]
[ -222, 0 ]
[ 115, 250 ]

[ 0, 212 ]
[ -115, -250 ]
[ 115, 250 ]
[ -115, 115 ]

Вариант 1

Вариант 2

Написать программы с составленными фрагментами и выполнить на компьютере по 3 раз каждую.