Заполните массив из 20 элементов случайными символами - Pascal ABC

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

1.Допустимый набор символов включает точные и заглавные латинские буквы, а также цифры.заполните массив из 20 элементов случайными символами из этого набора так, чтобы все символы в нем были различными. 2.

Решение задачи: «Заполните массив из 20 элементов случайными символами»

Листинг программы

const   n=21;
var i, x  : byte;
    st    : string;
    S     : set of char;
    sim   : char;
    
    
BEGIN
     Randomize;
     S:=['A'..'Z', '0'..'9'];
     i:=1;
     repeat
           x:=Random(43)+48;
           sim:=chr(x);
           if (sim in S) then
           begin
                st[i]:= sim;
                Inc(i);
           end
     until (i=n);
     for i:=1 to n do
         Write(st[i]:3);
     WriteLn;
END.

Объяснение кода листинга программы

В данном коде объявлены следующие переменные:

n - количество элементов в массиве (равное 21);
i - счетчик итераций цикла;
x - случайное число от 0 до 42 (используется для генерации случайного символа);
st - массив символов (в данном случае используется строка);
S - множество символов ('A'..'Z', '0'..'9');
sim - случайный символ из множества S. В начале кода функция Randomize вызывается для инициализации генератора случайных чисел. Затем создается множество S, которое содержит все возможные символы, которые могут быть использованы в массиве. Далее идет цикл repeat, который выполняется до тех пор, пока количество заполненных элементов в массиве не станет равным общему количеству элементов (n). Внутри цикла генерируется случайное число x, которое затем преобразуется в символ с помощью функции chr(x). Этот символ добавляется в массив st. Если этот символ уже присутствует в множестве S, то он не добавляется в массив. Счетчик i увеличивается на единицу после каждого добавления символа. После завершения внутреннего цикла цикл for начинает выполняться, который проходит по каждому элементу массива st и выводит его значение (символ) на экран. В конце кода функция WriteLn вызывается для вывода последней строки с информацией о количестве заполненных элементов.