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

Реклама
School1apsinf

Ответы и объяснения

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.

5.0
1 оценка
1 оценка
Оцени!
Оцени!
в первом цикле от 1 до 100 простите не заметил