SOAL NO 3 UTS 15

program TemperaturKota;
const NMax = 31;
type
	TInt = Array [1..NMax] of integer;
	TReal = Array [1..NMax] of real;
var
	TempF : TInt;
	NEff1 : integer;
	TempK : TReal;
	NEff2 : integer;
	fin : textfile; //fileofinteger juga sabi
	i : integer;
	x : integer;
	rata : real;


procedure HitungRerata (Tab : TInt; Neff : integer; var rerata : real);
var
	sum : integer;
begin
	sum := 0;
	for i := 1 to Neff do begin
		sum := sum + Tab[i];
	end;
	rerata := rerata * (sum / Neff );
	writeln (rerata:0:1);
end;

function KonversiFKeK (TF : integer) : real;
begin
	KonversiFkeK := ((TF + 459.67)*5)/9;
end;

begin
{ALGO UTAMA}
	assign ( fin, 'temperatur.dat');
	reset (fin);
		i := 1;
		while not (EOF (fin)) do begin
			read (fin , x);
			TempF [i] := x;
			i := i + 1;
		end;
		Neff1 := i -1;
	close (fin);
	writeln ('Temperatur rata-rata dalam derajat Fahrenheit = ');
	rata := 1.00;
	HitungRerata (TempF , Neff1 , rata );

	Neff2 := Neff1;

	for i := 1 to Neff2 do begin
		TempK[i] := KonversiFkeK (TempF[i]);
	end;

	writeln ('Temperatur harian dalam derajat Kelvin = ');
	for i := 1 to Neff2 do begin
		writeln (TempK[i] :0:2);
	end;
end.