Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Lab2RandomAndAvg
program RandomAndAvg; type TIntArray = Array of Integer; var n : integer; sum : integer; index : integer; randoms: TIntArray; begin readln(n); SetLength(randoms,n); randomize; sum := 0; for index := 0 to n do begin randoms[index] := random(1000); sum := sum + randoms[index]; end; writeln(sum/n); end.
run
|
edit
|
history
|
help
0
Shuffle number array
Pascal triangle
kk
2
practica 9 ejercicio 3
Tangga angka
Excercise3
test
111
Задачи на div и mod