Предмет: Информатика,
автор: calvin99
Дан массив из N элементов найти сумму элементов массива являющихся трехзначными числами в которых число десятков больше чем число сотен и сумма цифр которых больше 10 (Паскаль)
MrMiner1:
Какой диапазон значений у N? (паскаль - такой язык, что без подключения директорий создается массив только с определенной, заданной в программе длиной (не вводимой с клавиатуры))
Ответы
Автор ответа:
0
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.
Похожие вопросы
Предмет: Математика,
автор: lerasercenkova10
Предмет: Русский язык,
автор: gulbahorkarimova25
Предмет: Физика,
автор: mmtt654782
Предмет: Математика,
автор: Vlad931
Предмет: Математика,
автор: Акерке20051