Дан массив из N элементов найти сумму элементов массива являющихся трехзначными числами в...

Question

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

Comments

Какой диапазон значений у N? (паскаль - такой язык, что без подключения директорий создается массив только с определенной, заданной в программе длиной (не вводимой с клавиатуры))

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.