Question

Дан массив из N элементов найти сумму элементов массива являющихся трехзначными числами в которых число десятков больше чем число сотен и сумма цифр которых больше 10 (Паскаль)

Answer 1

begin

 var n := ReadInteger();

 var a := ReadArrInteger(n);

 var Sum := 0;

 foreach var x in a do

 begin

   var s := x.ToString;

   if (s.Length = 3) and

      (s[1] < s[2]) and

      (s[1].ToDigit + s[2].ToDigit + s[3].ToDigit > 10)

     then Sum += x

 end;

 Print(Sum)

end.

Answer 2

Для нахождения суммы элементов массива, удовлетворяющих заданным условиям, необходимо выполнить следующие шаги:

1. Объявить переменную для хранения суммы и инициализировать ее нулем.
2. Пройтись по каждому элементу массива.
3. Проверить, является ли текущий элемент трехзначным числом, у которого число десятков больше числа сотен и сумма цифр больше 10.
4. Если текущий элемент удовлетворяет условиям, добавить его к сумме.
5. После прохода по всем элементам массива вернуть полученную сумму.

Приведу пример кода на языке Паскаль:

pascalCopy code
program SumThreeDigitNumbers;
const
  N = 10; // Замените значение N на желаемую длину массива
var
  arr: array[1..N] of integer;
  i, digitSum, hundreds, tens, units, sum: integer;

begin
  // Здесь необходимо заполнить массив arr данными
  // ...

  sum := 0; // Инициализируем сумму нулем

  for i := 1 to N do
  begin
    // Проверяем, является ли элемент трехзначным числом
    if (arr[i] >= 100) and (arr[i] <= 999) then
    begin
      // Вычисляем сумму цифр числа
      units := arr[i] mod 10;
      tens := (arr[i] div 10) mod 10;
      hundreds := arr[i] div 100;
      digitSum := units + tens + hundreds;

      // Проверяем условия задачи: число десятков больше числа сотен и сумма цифр больше 10
      if (tens > hundreds) and (digitSum > 10) then
      begin
        // Добавляем текущий элемент к сумме
        sum := sum + arr[i];
      end;
    end;
  end;

  // Выводим полученную сумму
  writeln('Сумма элементов, удовлетворяющих условиям: ', sum);
end.

Примечание: В приведенном примере я использовал константу N, чтобы определить длину массива, и предполагаю, что массив arr заполнен некоторыми данными. Пожалуйста, замените значение N на желаемую длину массива и заполните массив arr данными перед выполнением программы.