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
Trabajo pascal
practica 7 ejercicio B7
1486
exRecords
числа с несовпадающими цифрами
ALEX LIMA NEPOMUCENO 600624764
test07
Урок 3 задачи 1, 2 и расширение задачи 2
searchtree
Cek dua pangkat