👤

Elaborati un program Pascal care va calcula suma elementelor divizibile la 2 ale unui sir de N numere reale, citite de la tastatura.

Răspuns :

program p1;
var n, t, s, i:integer;
begin
s:=0;
readln(n);
for i:=1 to n do
begin
readln(t);
if t mod 2 = 0 then s := s + t;
end;
writeln(s);
end.