profile
Опубликовано - 2 месяца назад | По предмету Информатика | автор Аноним

Дано сначала число n, а затем n натуральных чисел, не превосходящих 100. Выведите на экран в порядке возрастания только

  1. Ответ
    Ответ дан Huri
    Pascal ABC.net
    Var A:array[1..100]of byte;
    B:array[1..100]of integer;
    N,i:integer;
    Begin
    Read(N);
    For i:= 1 to N do
    Begin
    Read(A[i]);
    B[A[i]]:=B[A[i]]+1;
    End;
    For i:= 1 to 100 do
    if B[i]=1 then Write(i,' ')
    End.
    Второй вариант выполнения программы:
    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.
    0



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


Hekady (
204)
shozavitya (
180)
znanija (
172)
Eveline (
52)