Вопрос по информатике:
Дан массив одномерный(30 элементов), вычислить сумму элементов, найти максимальное, вывести те элементы, которые делятся на 13
Pascal
заранее огромное спасибо
- 20.03.2018 07:41
- Информатика
- remove_red_eye 11221
- thumb_up 7
Ответы и объяснения 1
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var a:=ArrRandom(30,1,100); a.Println;
Writeln('S=',a.Sum,', max=',a.Max);
Write('Кратные 13: '); a.Where(n->n mod 13=0).Println
end.
Тестовое решение:
91 45 76 84 16 23 33 56 70 99 9 56 18 75 48 49 22 90 27 52 94 85 42 45 87 7 78 90 40 5
S=1612, max=99
Кратные 13: 91 52 78
- 21.03.2018 21:32
- thumb_up 41
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.