Elaborati un program Pascal care va calcula suma elementelor divizibile la 2 ale unui sir de N numere reale, citite de la tastatura.
Răspunsuri la întrebare
Răspuns de
2
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.
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.
Alte întrebări interesante
Engleza,
8 ani în urmă
Matematică,
8 ani în urmă
Limba română,
8 ani în urmă
Biologie,
9 ani în urmă
Limba română,
9 ani în urmă