Заведём ещё один массив и будем в него записывать, правда ли, что в массиве есть элементы, равные данному, и текущий элемент - первый из них. Затем выведем все элементы, для которых это оказалось правдой.
Pascal var i, j, n: integer; flag: boolean; a: array[1..10000] of integer; b: array[1..10000] of boolean; begin read(n); for i := 1 to n do begin read(a[i]); b[i] := true; end; b[n] := false;
for i := 1 to n - 1 do if b[i] then begin flag := true; for j := i + 1 to n do if a[i] = a[j] then begin flag := false; b[j] := false; end; if flag then b[i] := false; end; for i := 1 to n do if b[i] then write(a[i], ' '); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
2. Напишите программный код, который складывает, вычитает, умножает, делит два числа Введенных с клавиатуры. на программе С++
Pascal
var
i, j, n: integer;
flag: boolean;
a: array[1..10000] of integer;
b: array[1..10000] of boolean;
begin
read(n);
for i := 1 to n do
begin
read(a[i]);
b[i] := true;
end;
b[n] := false;
for i := 1 to n - 1 do
if b[i] then
begin
flag := true;
for j := i + 1 to n do
if a[i] = a[j] then
begin
flag := false;
b[j] := false;
end;
if flag then
b[i] := false;
end;
for i := 1 to n do
if b[i] then
write(a[i], ' ');
end.