Вопрос по информатике:
Помогите пожалуйста с Паскалем. Вводится 15 последовательных чисел,найти среднее арифметическое четнвх чисел,кратных трем из введенных
Составьте полную программу
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 01.10.2017 02:38
- Информатика
- remove_red_eye 9125
- thumb_up 19
Ответы и объяснения 1
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrInteger('Введите 15 целых чисел',15);
var s:=a.Where(x->x.IsEven and (x mod 3=0));
if s.Count>0 then Writeln('S=',s.Average)
else Writeln('Нет элементов, удовлетворяющих условию')
end.
Пример
Введите 15 целых чисел 2 -10 -47 -44 5 24 -6 30 1 -46 7 0 6 -2 44
S=10.8
- 02.10.2017 09:36
- thumb_up 17
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.