Заполните одномерный массив целыми числами из диапазона [a,b]. Найдите сумму четных и...

Question

Заполните одномерный массив целыми числами из диапазона [a,b]. Найдите сумму четных и нечетных элементов одномерного массива

Answer 1

// PascalABC.NET

begin

 var n := ReadInteger('n =');

 var (a, b) := ReadInteger2('Введите a и b:');

 var m := ArrRandom(n, a, b);

 m.Println;

 Println('Сумма четных равна', m.Where(p -> p.IsEven).Sum);

 Println('Сумма нечетных равна', m.Where(p -> p.IsOdd).Sum);

end.

---

Comments

Правда не для уровня 9 класса)

---

Вы впадаете в ту же ошибку, что и многие до Вас. То, что Вы обозвали "уровень" зависит не от класса, и даже не от возраста, а от уровня знаний учителя. Опыт обучения школьников показывает, что если так начинать с 6 класса, то уже в шестом так пишут.

---

Скорее всего, вам информатик дает старую версию языка, ТурбоПаскаль. Образец 1974 года.