Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
6
//fpc 3.0.0 program HelloWorld; var A: array [1..100] of integer; n, i, kol : integer; begin readln(n); for i:=1 to n do begin write('Введите ',i, ' элемент : '); readln(A[i]); end; kol:= 0; for i:=1 to n do begin if (A[i] mod 2 <> 0) then kol:= kol + 1; end; end.
run
|
edit
|
history
|
help
0
ariketa 01
Linha d'água de uma caixa retangular
test23
10
nested for loop a(ii)
practica 7 ejercicio 7
Poukimone1 tg
nomer9
Huong11a2@
5161