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
Грицанова. Стр. 77. Задача 6.18
zad27-optimal
Tangga angka
checks if a number is exceptional
BubbleSor (slimmer)
Kacper
Geometric and aritmetic average of array
Rafli
222
звёздное небо с подсчётом двойных звёзд