Вывести на экран N псевдослучайных целых чисел на заданном отрезке - Pascal ABC

Формулировка задачи:

Помогите пожалуйста! Напишите программу, которая вводит натуральные числа a , b и N , и выводит на экран N псевдослучайных целых чисел на отрезке [ a , b ] . Вот мой код

program a1;
var a, b, N, s:integer;
begin
readln(a, b, N);
randomize;
while (N<>0) do
 begin
  N:= N-1;
  s:= random(b)+a;
  write(s,' ');
 end;
end.

Решение задачи: «Вывести на экран N псевдослучайных целых чисел на заданном отрезке»

textual
                            Листинг программы 
                        
                              s:= random(b-a+1)+a;

Оцени полезность:

12 голосов , оценка 4.5 из 5

Похожие ответы