Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
123
Program n_3; const n=20; var I, s: integer; a: array [ 1 . . n] of integer; begin randomize; for I := 1 to n do begin a [ I ] := random( 100 ) + 50; writeln ( ‘ a [‘, I, ‘]=’ , a [ I ] ) end; a := 0 for I :=1 to n do s := s +a [ I ]; writeln (‘ s=’, s) end.
run
|
edit
|
history
|
help
0
Matrix,colums with all equal elements
Operaciones 2 grado
sp2014e4
НОД не по ЕВКЛИДУ но без массивов
task 2
подсчёт кратчайших путей
Deskripsi2
Giu
Бассейн-8 count
PrimoPerfecto