Задачи по Pascal. Сформировать последовательность из n элементов заданных ДСЧ

Условие задачи : Сформировать и вывести на экран последовательность из n элементов, заданных датчиком случайных чисел на интервале [-23, 34].

Сложность : легкая .

Для решения задачи многого нам не понадобиться.

1. Переменная под массив.
2. Для того чтобы заполнить массив нам понадобиться цикл for а для него нужна переменная счетчик.
3. И переменная для количества элементов массива.

Для правильной работы с массивом нам нужно создать отдельный тип. Например для чисел у нас есть тип integer, это числа от -32768..32767, а мы создадим свой тип данных, пишем :

type 
    massiv = array [1..100] of integer;

Вот теперь у нас есть свой тип данных mass, количество элементов 100 и они целого типа.

Дальше мы объявим переменные и попросим пользователя ввести количество элементов :

var
    mass : massiv;
    n , i : integer;
begin
    clrscr; // очищаем экран

    randomize; // включаем генератор случайных чисел.

    write('Введите кол-во элементов массива : '); readln(n);
end.

Ну и теперь чтобы заполнить наш массив числами нам нужно пустить цикл и в нем уже присваивать каждому элементу массива случайное число :

for i:=1 to n do
   begin
      mass[i] := random(58) - 23 ;
      write(mass[i], ' | ');
   end;

Вроде бы всё просто. По поводу случайного числа, сначала мы пишем random(58) и получали бы числа от 0 до 57, а чтобы получать числа от -23 до 34 нам нужно вычитать из результата функции random число 23.

Вот и всё задача решена.

Весь код программы :

uses crt;

type
    massiv = array [1..100] of integer;
var
    mass : massiv;
    n , i : integer;
begin
    clrscr; // очищаем экран

    randomize; // включаем генератор случайных чисел.

    write('Введите кол-во элементов массива : '); readln(n);

    for i:=1 to n do
        begin
            mass[i] := random(58) - 23;
            write(mass[i], ' | ');
        end;
    readln;
end.