profile
Опубликовано 6 лет назад по предмету Информатика от lilanz

Дано сначала число n, а затем n натуральных чисел, не превосходящих 100. Выведите на экран в порядке возрастания только те из них, которые встречаются в данной последовательности ровно один раз. ВХОДНЫЕ ДАННЫЕ В первой строке вводится одно число n — натуральное, не превосходящее 10000. Во второй строке вводятся n натуральных чисел, не превосходящих 100. ВЫХОДНЫЕ ДАННЫЕ Выведите в порядке возрастания те из них, которые встречаются в последовательности ровно один раз.

  1. Ответ
    Ответ дан gemini250511999
    paskal
    var n,i,k:integer;
    a:array[0..100] of integer;
    begin
    read(n);
    for i:=1 to n do
    begin
    read(k);
    inc(a[i]);
    end;
    for i:=0 to 100 do
    if a[i]=1 then write(i,' ');
    end.
    1. Ответ
      Ответ дан gemini250511999
      главное результат
    2. Ответ
      Ответ дан Аккаунт удален
      Вот Вы и ответили сами на вопрос, почему Вам решение не отправили на исправление. Хотите - устраняйте недочет, не хотите - оставьте так.
    3. Ответ
      Ответ дан gemini250511999
      пусть останется
    4. Ответ
      Ответ дан Аккаунт удален
      Но я Вам могу указать еще один недочет, причем существенный: Вы не обнулили элементы массива и сразу стали давать им приращение. Есть версии Паскаля, которые при описании массива не заносят отведенную под его элементы память нулями и в этих версиях Ваша программа будет работать некорректно. Тут уж как автор вопроса решит. Оценит Ваше решение - примем его.
    5. Ответ
      Ответ дан gemini250511999
      ок
Самые новые вопросы