Задать вопрос Регистрация
Помочь другим

  • напишите программу , которая выводит номера билетов, чтобы они не повторялись

Ответы 1

  • Я так понимаю намера билетов надо вывести в случайном порядке?

    Пусть надо вывести в случайном порядке номера 100 билетов

    program RND;

    var a:array[1..100]of integer;

    i.j,f:integer;

    begin

    randomize;

    i:=1;

    white i<101 do begin

    f:=0;

    A[i]:=int(random(100));

    for j:=1 to i do if A[j]=A[i] then f:=1;

    if f=0 then i:=i+1;

    end;

    for i:=1 to 100 do writeln(A[i]);

    end.

    • Автор:

      paola
    • 5 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years