Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 14.09.2016 02:07
- Информатика
- remove_red_eye 19817
- thumb_up 15
Ответы и объяснения 1
const n=10;
begin
var a:=ArrRandom(n,-20,30);
for var i:=0 to n-1 do
if a[i] mod 8=0 then writeln(a[i],' - YES')
else writeln(a[i],' - NO');
var p:=a.Where(x->x mod 8=0);
if p.Count0 then writeln(p.Average)
else writeln('Нет элементов, кратных 8');
end.
Пример:
25 - NO
-14 - NO
-11 - NO
-3 - NO
5 - NO
-15 - NO
-16 - YES
25 - NO
15 - NO
-15 - NO
-16
- 15.09.2016 13:39
- thumb_up 15
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.