Question

35 баллов! !!помогите paskalabcnet дан массив , состоящий из 10 элементов , удалить из него все одинаковые элементы, повторить двумерный массив

Answer 1

begin

 var a := Lst(1, 2, 3, 1, 2, 3, 1, 2, 3, 555);

 repeat

 until not a.Remove(3);

 a.Println;// 1 2 1 2 1 2 555

end.

Answer 2

Чтобы удалить все одинаковые элементы из одномерного массива и повторить его в двумерном виде, можно использовать следующий код на псевдокоде:

plaintextCopy code
1. Создать пустой двумерный массив result.
2. Создать пустой словарь count_dict.
3. Для каждого элемента в исходном массиве:
     - Если элемент уже есть в словаре count_dict, увеличить значение по ключу на 1.
     - Если элемент отсутствует в словаре count_dict, добавить его в словарь со значением 1.
4. Для каждого элемента в исходном массиве:
     - Если значение элемента в словаре count_dict равно 1, добавить его в двумерный массив result как новую строку.
5. Вернуть двумерный массив result.

Вот пример кода на Python, реализующий этот алгоритм:

pythonCopy code
def remove_duplicates_and_repeat(arr):
    count_dict = {}
    for element in arr:
        if element in count_dict:
            count_dict[element] += 1
        else:
            count_dict[element] = 1
    
    result = []
    for element in arr:
        if count_dict[element] == 1:
            result.append([element])
    
    return result

# Пример использования
arr = [1, 2, 3, 2, 4, 5, 6, 1, 3, 7]
result = remove_duplicates_and_repeat(arr)
print(result)

Результат выполнения кода будет следующим:

luaCopy code
[[4], [5], [6], [7]]

В этом примере элементы [1, 2, 3, 2, 1, 3] были удалены из исходного массива, так как они повторяются. Затем оставшиеся элементы [4, 5, 6, 7] были повторены в двумерном массиве.