Используя функцию random (X), получите числа в диапазонах: от 1 до 10, от –10 до +10, от 50 до 100
Используя функцию random (X), получите числа в диапазонах: от 1 до 10, от –10 до +10, от 50 до 100.
program zad_3_1_nica;
var Rand: array[1..10] of integer;
i: integer;
begin
randomize;
for i:=1 to 10 do begin
Rand[i]:=1+random(10);
write (Rand[i], '; ');
end;
end.
program zad_3_2_nica;
var Rand: array[1..20] of integer;
i: integer;
begin
randomize;
for i:=1 to 20 do begin
Rand[i]:=-10+random(21);
write (Rand[i], '; ');
end;
end.
program zad_3_3_nica;
var Rand: array[1..50] of integer;
i: integer;
begin
randomize;
for i:=1 to 50 do begin
Rand[i]:=50+random(51);
write (Rand[i], '; ');
end;
end.