Question

Яписал программу в паскале abc для произвольного промежутка [a: b] и для произвольного количества случайных чисел. в качестве примера я взял промежуток [1: 3] , в данном интервале могут быть только числа 1,2 и 3, но когда я проверял мне даже выдавало 0. посмотрите, может в мою программу закралась ошибка program m_1; var n, k1, x, max, min: integer; begin randomize; writeln ('случайные числа из интервала [a; b]'); write ('введи минимальное значение интервала - '); read (min); write ('введи максимальное значение интервала - '); read (max); write ('введи кол-во случайных чисел - '); read (n); k1: =0; repeat if (n> =0) then k1: =k1+1; x: =random((max-min+1)+min); writeln (x); until k1=n; end.

Answer 1

Так будет проще ну по мне так это проще

program m_1;
var n, k1, x, max, min, i: integer;
begin 
 writeln ('Случайные числа из интервала [a;b]');
 write ('Введи минимальное значение интервала - ');
 read (min);
 write ('Введи максимальное значение интервала - ');
 read (max);
 write ('Введи кол-во случайных чисел - ');
 read (n);
 for i:=1 to n do
  begin
   x:=random(max-min+1)+min;
   write (x,' ');
  end;
end.