Rešenje zadatka za osmi razred PDF Print E-mail
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
 

Login