Дано N чисел. Найти сумму четных чисел. Паскаль. Через mod

Question

Дано N чисел. Найти сумму четных чисел. Паскаль. Через mod

Comments

begin ReadSeqInteger(ReadInteger('n =')).Where(x -> x mod 2 = 0).Sum.Println;end.

---

Спасибо большое! Но можно как-нибудь попроще без where, println и тд

---

На уровне 5-7 классов. На самом начальном уровне.

---

Вас обманывают, то что вы называете проще, на самом деле не проще, там писать нужно много и три переменных вводить

---

var n,x,s: integer;begin read(n); s := 0; for var i := 1 to n do begin read(x); if x mod 2 = 0 then inc(s, x) end; Write('s = ', s)end.

---

так вас учат?

---

Да, только вот подскажите пожалуйста что выполняет inc?

---

вы в какой среде паскаля пишете? Если в PascalABC.NET наведите мышку на inc и вам покажет окошко там будет написано, что это такое, еще можете зайти в справку, она встроена в среду, и там есть поиск, напишите inc и тоже все увидите, а вообще это процедура, она увеличивает переменную s на x (в данном конкретном случае). Но можно это заменить на s := s + x

---

Воу, огромное спасибо за решение и объяснение! Буду сейчас разбирать)

---

на здоровье

Answer 1

Program chet;
uses crt;
var N, a, b, c:Integer;
begin
a:=0;
Write('Сколько чисел будем вводить? ');
ReadLn(N);
for b:=1 to n do
begin
Write('Введите число номер ', b, ': ');
Readln(c);
if c mod 2 = 0 then
begin write(' - это чётное число, берём его!');
a:=a+c;
WriteLn('Текущая сумма равна ', a);
end
end;
Writeln('----------');
Write('Итоговая сумма чётных чисел: ', a);
readln;
end.