Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Geometric and aritmetic average of array
program AritmetickaGeometrijskaSredina; const max=100; type niz=array[1..max] of integer; var a:niz; ar,g:real; n,i:integer; function arsredina(b:niz;n:integer):real; var i,s:integer; begin s:=0; for i:=1 to n do s:=s+b[i]; arsredina:=s/n; end; function geometrijska(b:niz;n:integer):real; var i,s:integer; begin s:=1; for i:=1 to n do s:=s*b[i]; geometrijska:=exp(ln(s)/n); end; begin writeln('Unesite broj elemenata niza: '); read(n); writeln('Unesite elemente niza'); for i:=1 to n do read(a[i]); ar:=arsredina(a,n); g:=geometrijska(a,n); writeln('Aritmeticka sredina je: ',ar:0:2); writeln('Geometrijska sredina je: ',g:0:2) end.
run
|
edit
|
history
|
help
0
Please
log in
to post a comment.
practica 3 ejercicio B2
test04
Huong11a2@
P170808E
Подсчёт количества единичных битов в десятичном числе от 0 до 15
Homework 10
Mat
Сумма пар чисел кратных и некратных 11
CON YÊU MẸ
abcd...
Please log in to post a comment.