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
tablas
This
zadanye 3 b
Deskripsi
practica 7 ejercicio B6
elas_ex0
Сумма квадратов чисел = n
Pascal triangle
corza71
Localisation ND