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
Квартира из уч. Грицановой с местоположением квартиры на этаже
practica 11 ejercicio 6 BETA
rf cdx
B prethodnih B sledecih
2
перевод 16-ричного числа в 10-чное
123
solar sysmtem 6 (with random mass m1)
registro de alunos, calculo de média
Vremenska prognoza