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
Letícia
practica 7 ejercicio B4
AUMENTAR O DISMINUIR EDADES
practica 9 ejercicio 10
funcion esprimo con boolean
Potenztabelle
JOZIANE NEVES DE SOUZA 600630041
P170808C
0 1 0 0 0 1 1 1
3