Written by Ana
|
Tuesday, 20 September 2016 20:57 |
program NajbliziRandom; var niz:array[1..50] of real; a,b,n,i:integer; srednjaVrednost,min,resenje,suma:real; begin read(a,b,n); suma:=0; randomize; for i:=1 to n do begin niz[i]:=random(b-a)+a; suma:=suma+niz[i]; end; srednjaVrednost:=suma/n; min:=abs(suma-niz[1]); resenje:=niz[1]; for i:=1 to n do write(niz[i]:4:2,' '); writeln(); for i:=2 to n do begin if (abs(srednjaVrednost-niz[i]) < min) then begin min:=abs(srednjaVrednost-niz[i]); resenje:=niz[i]; end; end; write(resenje:4:2); end.
|
Last Updated on Wednesday, 21 September 2016 11:37 |