Подсчитать сумму всех элементов кратных 2 , в массиве из 10 чисел

Question

Подсчитать сумму всех элементов кратных 2 , в массиве из 10 чисел

Comments

Program r;typemas =array [1..10] of real;Var M:=mas;i,k:real;beginfor i:=1 to 10 do read(m[i]);for i:=1 to 10 do m[i] mod 2 = 0 thenk:=m[i]for i:=1 to 10 doif (m[i]+k)and(m[i]mod 2 =0)thenk:=m[i]writeln('сумма элементов массива',k,',кратный двум');end.

---

почему программа не работает??!

---

за ответ баллы

---

в чём ошибки?

---

ну где не правильно?

Answer 1

// PascalABC.NET 3.2, сборка 1345 от 24.11.2016
// Внимание! Если программа не работает, обновите её версию!
begin
  var a:=ArrRandom(10,1,30); a.Println;
  Writeln('Сумма четных чисел равна ',a.Where(x->x.IsEven).Sum)
end.

Пример
27 11 27 26 20 17 26 20 3 25
Сумма четных чисел равна 92

Comments

мне нужно не так!

---

Ну учитель не поймет, что я сделаю!!

---

ну почему нельзя помочь и написать по другому?!?