Question

Дан массив из десяти элементов, найти одинаковые элементы массива и проверить больше ли их значения чем A[10], если так то вывести это значение, иначе вывести 0

Answer 1

// PascalABC.NET 3.2, сборка 1427 от 24.04.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(10,-20,20); a.Println;
  var r:=a.GroupBy(x->x).Select(x->(x.Key,x.Count)).
      Where(x->(x[1]>1) and (x[0]>a.Last));
  if r.Count>0 then Writeln(r.First[0])
  else Writeln(0)
end.

Пример
10 14 9 -2 -5 -5 -20 -11 14 -13
14

Answer 2

Привет! Я могу помочь решить задачу нахождения одинаковых элементов в массиве и проверить их значения. Ниже приведен пример кода на языке Python, который выполняет это действие:

pythonCopy code
def find_same_elements(array, value):
    duplicates = []
    for i in range(len(array)):
        if array.count(array[i]) > 1:
            duplicates.append(array[i])
    
    max_duplicate = max(duplicates) if duplicates else 0
    
    if max_duplicate > value:
        return max_duplicate
    else:
        return 0

# Пример использования
A = [1, 2, 3, 4, 5, 5, 6, 7, 8, 9]
value_to_compare = A[9]

result = find_same_elements(A, value_to_compare)
print(result)

В этом примере мы сначала определяем функцию find_same_elements, которая принимает массив array и значение value для сравнения. Мы создаем пустой список duplicates для хранения одинаковых элементов.

Затем мы проходим по каждому элементу массива и проверяем, сколько раз он встречается в массиве с помощью метода count(). Если элемент встречается более одного раза, мы добавляем его в список duplicates.

Затем мы проверяем, есть ли одинаковые элементы в списке duplicates. Если есть, мы находим максимальное значение из них с помощью функции max(). Если максимальное значение больше, чем value, то возвращаем его, иначе возвращаем 0.

В приведенном примере массив A содержит дублирующийся элемент 5, и его значение больше, чем A[9]. Поэтому результатом выполнения кода будет 5.