Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
6
//fpc 3.0.0 program HelloWorld; const n=10; var i, kol:integer; mas:array[1..n] of integer; begin for i:=1 to n do{ mas[i]:=random(50)-100; kol:=0; for I:=1 to n do if mas[i] mod 2 = 1 then kol:= kol + 1; writeln('kol=',kol); end.
run
|
edit
|
history
|
help
0
a2
66
08 Ariketa REPEAT
Pascal Epsilon
Homework 5
Compteur
Пиріжки
t moche
test27
Cek dua pangkat