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
programme 2
звёздное небо и подсчёт кратных звёзд
Compteur
9
Calculatrice (case of)
Tinh tong
linear eq
aaaaa
Lab2RandomAndAvg
T