Удаление повторяющихся чисел в массиве - Pascal ABC
Удалить в массиве все числа которые повторяются более двух раз
Ответы на вопрос
Ответил vadim260101
0
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.
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.
Приложения:
Новые вопросы