Вопрос по информатике:
Дан массив целых чисел 7х7.Найти сумму четных элементов главной диагонали массива.
Помогите пожалуйста,срочно.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 25.04.2017 19:30
- Информатика
- remove_red_eye 10861
- thumb_up 5
Ответы и объяснения 1
begin
var a:=MatrRandom(7,7,-10,10);
writeln('A:'); a.Println(5);
var s:=a.ElementsWithIndexes.Where(k->(k[1]=k[2])and(k[0].IsEven)).
Select(k->k[0]).Sum;
writeln('s = ',s);
end.
Пример:
A:
5 3 -8 3 -2 -9 -5
-4 5 -7 9 -1 -9 3
-6 -5 10 -6 3 2 -8
-6 10 -10 -2 7 7 2
-7 1 4 -6 10 -6 -6
-9 -2 -3 6 6 -7 8
-8 10 9 -10 2 10 -3
s = 18
- 26.04.2017 04:00
- thumb_up 5
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.