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
Lab1SumWithFor
zad27-notoptimal
Zadanie 3 в
печать символов
Pascal First
mang
Largest Prime Factor
tarea1
practica 8 ejercicio 1
practica 3 ejercicio B1