Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Blog
Huong11a2@
Program bt6; Uses crt; Var a:array[1..50] of byte; n,i,tong:byte; Begin Clrscr; Writeln('Nhap so phan tu mang:'); Readln(N); For i:=1 to N do Begin Writeln('Phan tu thu ',i,' = '); Readln(A[i]); End; Tong:=0; For i:=1 to N do If (A[i] > 0) and (A[i] mod 2 = 0) then tong:=tong + A[i]; Writeln('Tong cua mang = ',tong); Readln; End.
run
|
edit
|
history
|
help
0
Please
log in
to post a comment.
yghgh
бассейн
test16
Naloga 8: 10.9.2008
String compare
Задачи на div и mod
task 2
mulitp
Trang
7
Please log in to post a comment.