Var n, i, a, q: integer; x: array[-30000..30000] of boolean; begin q := 0; write('n='); readln(n); for i := 1 to n do begin read(a); x[a] := true; end; write('Ваш массив без повторяющийхя элементов '); for i := -30000 to 30000 do if x[i] then begin write(i, ' '); inc(q); end; writeln; writeln('Кол-во элементов в новом массиве=', q);end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
