profile


Опубликовано 5 лет назад по предмету Информатика от Avakarit

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

  1. Ответ
    Ответ дан XletstraikcX

    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<Q do begin

    n:=St+Random(En);

    if not(a[n])

    then begin writeln(n);

    inc(i);

    end;

    end;

    end.


Другие вопросы