
Написать программу для заполнения линейного массива случайными числами с некоторого отрезка [a, b]
В Паскале пожалуйста. Зараннее спасибо)

Ответы на вопрос

i:integer;
begin
randomize;
for i:=1 to n do a[i]:=random(b-a+1)+a;
for i:=1 o n do writeln(a[i]);
end.



Вот пример программы на языке Pascal, которая заполняет линейный массив случайными числами из заданного отрезка [a, b]:
```pascal program FillArrayWithRandomNumbers;
const N = 10; // размер массива a = 1; // начало отрезка b = 100; // конец отрезка
var arr: array[1..N] of Integer; i: Integer;
begin Randomize; // инициализация генератора случайных чисел
// заполнение массива случайными числами for i := 1 to N do arr[i] := Random(b - a + 1) + a;
// вывод массива на экран for i := 1 to N do WriteLn(arr[i]);
ReadLn; end. ```
В этой программе мы используем константы `N`, `a` и `b` для определения размера массива и диапазона случайных чисел. Затем мы объявляем массив `arr` и переменную `i`.
С помощью цикла `for` мы заполняем массив `arr` случайными числами из заданного диапазона. Функция `Random(b - a + 1) + a` генерирует случайное число в диапазоне от `a` до `b`.
Затем мы выводим элементы массива на экран с помощью цикла `for` и функции `WriteLn`.
Наконец, мы используем `ReadLn`, чтобы программа ожидала ввода пользователя перед завершением.
Примечание: Пожалуйста, обратите внимание, что язык Pascal не является одним из основных языков программирования, поддерживаемых платформой You.com. Поэтому, возможно, вам будет сложно найти подробные сведения о Pascal в наших источниках. Однако, предоставленный пример программы должен быть полезным для вас.


Топ вопросов за вчера в категории Информатика








Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili