Найти сумму целых положительных четных чисел, вводимых с клавиатуры. Технические условия....

Question

Найти сумму целых положительных четных чисел, вводимых с клавиатуры. Технические условия. Количество чисел N, которые будут введены с клавиатуры,задают в начале программы (4<N<20).

Answer 1

Если я правильно понял то, 6.8.10.12.14.16.18

Comments

dhjlm njuj

---

вродь того

---

Пример
Входные данные:
N=5;
7 14 11 -3 6.
Исходные данные:20

---

мля фиг знает

---

ну лан тода спс

---

program z3;
var n,i,a,s:integer;
begin
repeat
write('Сколько чисел ввести (от 5 до 19) n=');
readln(n);
until n in [5..19];
writeln('Введите ',n,' целых чисел');
s:=0;
for i:=1 to n do
begin
readln(a);
if(a>0)and(a mod 2=0) then s:=s+a;
end;
write('Сумма четных положительных чисел=',s);
readln
end.

---

если чо будет над

Answer 2

Program z1;var n, a, i, s:integer;beginread(n); s:=0;for i:=1 to n do beginread(a); if (a>0) and (a mod 2=0) then s:=s+a;end;write(s);end.

Comments

народ кому над я нашол смотрите и пользуйтес:

---

program z3;
var n,i,a,s:integer;
begin
repeat
write('Сколько чисел ввести (от 5 до 19) n=');
readln(n);
until n in [5..19];
writeln('Введите ',n,' целых чисел');
s:=0;
for i:=1 to n do
begin
readln(a);
if(a>0)and(a mod 2=0) then s:=s+a;
end;
write('Сумма четных положительных чисел=',s);
readln
end.

---

всем спс хто ответил хотяб