Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Blog
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
Please
log in
to post a comment.
test07
123
1januar2018
pi-digits-grouped
число пи с помощью ряда
h5534
Lab2RandomAndAvg
Сумма пар чисел кратных и некратных 11 с дельтой неэффективная
Mengubah biner ke desimal
IT101 - W4_1
Please log in to post a comment.