Question

Удалить из массива все элементы, сумма цифр которых равна 10 (решение через Паскаль) ​

Answer 1

                                                  PascalABC.NET

begin

 ArrRandom(50,0,10).Where(x -> x + x <> 10).Print

end.

//Я так понял сумма цифр это например: 1 + 1; 2 + 2; 3 + 3; 4 + 4...Если встречается число 5, то 5 + 5 = 10...мы удаляем 5.

Answer 2

Для решения задачи на удаление из массива всех элементов, сумма цифр которых равна 10, можно использовать язык программирования Pascal. Ниже представлен пример кода на Pascal:

pascalCopy code
program RemoveElementsWithDigitSum10;

const
  MAX_SIZE = 100; // Максимальный размер массива

type
  IntArray = array[1..MAX_SIZE] of Integer;

// Функция для подсчета суммы цифр числа
function SumOfDigits(number: Integer): Integer;
var
  sum: Integer;
begin
  sum := 0;
  while number > 0 do
  begin
    sum := sum + number mod 10;
    number := number div 10;
  end;
  Result := sum;
end;

// Процедура для удаления элементов из массива
procedure RemoveElementsWithDigitSum10(var arr: IntArray; var n: Integer);
var
  i, j: Integer;
begin
  j := 0;
  for i := 1 to n do
  begin
    if SumOfDigits(arr[i]) <> 10 then
    begin
      j := j + 1;
      arr[j] := arr[i];
    end;
  end;
  n := j; // Устанавливаем новый размер массива
end;

var
  arr: IntArray;
  n, i: Integer;

begin
  // Ввод размера массива и его элементов
  Write('Введите размер массива (не более ', MAX_SIZE, '): ');
  ReadLn(n);
  WriteLn('Введите элементы массива:');
  for i := 1 to n do
    ReadLn(arr[i]);

  // Удаление элементов с суммой цифр равной 10
  RemoveElementsWithDigitSum10(arr, n);

  // Вывод измененного массива
  WriteLn('Массив после удаления элементов с суммой цифр равной 10:');
  for i := 1 to n do
    WriteLn(arr[i]);
end.

Программа сначала запрашивает размер массива и его элементы у пользователя. Затем вызывает процедуру RemoveElementsWithDigitSum10, которая удаляет из массива все элементы, сумма цифр которых равна 10. Результат выводится на экран.

Пожалуйста, учтите, что код написан для языка Pascal и должен быть скомпилирован и запущен в соответствующей среде для выполнения.