Помогите пожулайста!!!!!! Надов программе вывести числа рандомно от 1 до 100

Есть ответ
12.12.2022
124

Ответ


const St=1; En=100;
var
a:array[St..En] of boolean;
i,q,n:integer;
begin
Randomize;
for i:=St to En do
a[i]:=false;
i:=0;
q:=En-St+1;
while i


Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
12.12.2022
Этот сайт использует cookies (Политика Cookies). Вы можете указать условия хранения и доступ к cookies в своем браузере.