Я писал программку в Паскале ABC для случайного интервала [a:b] и

Я писал программку в Паскале 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 (ngt;=0) then k1:=k1+1;
x:=random((max-min+1)+min);
writeln (x);
until k1=n;
end.

Задать свой вопрос
Тимур Тюсенков
можешь дать условие задачки?
Юрка
а всё не надобно я сообразил прости)
Даниил
:)
Lenja Georgizjan
просто неясно, вроде бы все верно написал, но получаются неверные ответы
Варвара
есть подозрение, что может паскаль у меня кривой, поновой может мне его скачать
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.
Никита Родигин
просто я не настигаю почему мой не работает
Денис
:)
Надежда Алтыбаева
нуу
Larisa Strongina
эт я тоже не особо настигаю
Руслан Веселый
да уж,
Галина Черепненкова
блин, я ведь допер в чем ошибка
Степка Зандателев
x:=random((max-min+1)+min); я здесь излишних скобок понаставил
Андрюшев Витя
вот от куда нули повзялись
Lena Mashnenkova
хех
Паша Жолмышков
это молодец что сам допёр)
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт