Verovatno sam zakasnio, ali sta da radim, pre pola sata sam se probudio :) Evo resenja:
Code:
Var
F : File Of Real;
R,
Min,
Max,
Ari,
Geo,
Sum,
Har : Real;
Count : Integer;
begin
Assign (F, 'podatak.dat');
{$I-} Reset (F); {$I+}
If IOResult <> 0 Then
WriteLn ('Ne mogu da otvorim fajl podatak.dat!')
Else
Begin
Read (F, R);
Min := R;
Max := R;
Ari := R;
Geo := R;
Har := 1/R;
Count := 1;
Sum := R - Trunc (R);
While Not Eof (F) Do
Begin
Read (F, R);
If R < Min Then Min := R;
If R > Max Then Max := R;
Ari := Ari + R;
Inc (Count);
Sum := Sum + (R - Trunc (R));
Geo := Geo * r;
Har := Har + 1/R;
End;
Close (F);
Ari := Ari / Count;
Geo := exp (1/Count * ln(Geo));
Har := Count /Har;
WriteLn ('Minimalni element: ', Min);
WriteLn ('Maksimalni element: ', Max);
WriteLn ('Aritmeticka sredina: ', Ari);
WriteLn ('Geometrijska sredina: ', Geo);
WriteLn ('Harmonijska sredina: ', Har);
WriteLn ('Suma decimala: ', Sum);
End;
end.