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

Question

Информатика

Мелентий

12 июня, 14:28

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

+5

Ответы (1)

Знаете ответ?

Ульянка · Answer 1

Var i, n, k:integer;

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

begin

read (n) ;

for i:=1 to n do

a[i]:=0;

for i:=1 to n do

begin

read (k) ;

inc (a[k]) ;

end;

for i:=1 to 100 do

if a[i]=1 then write (i,' ') ;

end.