Houssey
Moderator
 Din: Buzau
Inregistrat: acum 17 ani
Postari: 260
|
|
{Se considera un sir de numere intregi.Sa se scrie un program care calculeaza suma numerelor din sir care au toate cifrele pare}
var s,n,i:integer; a:array [1..100] of integer; begin write('n=');readln(n); for i:=1 to n do begin write('a[',i,']='); readln(a[i]) end; for i:=1 to n do write(a[i],' '); writeln; s:=0; for i:=1 to n do if a[i] mod 2=0 then s:=s+a[i]; writeln('s=',s); readln end.
_______________________________________ House Music Set`s Me Free!
|
|