Run Code
|
API
|
Code Wall
|
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
mult_matrix.pas
SINHHOANVI
SINHNHIPHAN
Задача №3549. Замечательные числа - 5
practica 1 ejercicio 7
Régua do Tanque Cilindrico Horizontal
Sum of array
zad27-notoptimal
Giu
RENAN AZEREDO DA FONSECA 600618046