Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
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
The largest one , matrix
test27
test28
tekl
15
Letícia
Tugas2
Huong11a2@
Potenztabelle
b2