0
Program Mencari_Hasil;
uses winCrt;
var
n,totalf,totalfx:integer;
x,f,fx:array [1..6] of integer;
rata :real;
begin
totalf:=0;totalfx:=0;
for n:=1 to 6 do
begin
write ('masukkan Nilai x[',n,']=');readln (x[n]);
write ('masukkan Nilai f[',n,']=');readln (f[n]);
fx[n]:= x[n]*f[n];
totalf:= totalf+fx[n];
totalfx:= totalfx+fx[n];
end;
clrscr;
rata:=totalfx/totalf;
writeln ('===============');
writeln (': x : f : fx : ');
writeln ('===============');
for n:=1 to 6 do
begin
writeln (x[n]:5,f[n]:5,fx[n]:5);
end;
writeln ('======================');
writeln ('total:',totalf:5,totalfx:5);
writeln ('======================');
writeln ('rata:',rata :3:2);
end.