{$codepage UTF8} VAR ni:array [1..100] of real; NNi:array[1..100] of real; i,n:byte; BEGIN Write('Ingrese numero de datos : ');readln(n); for i:= 1 to n do Begin Write('ni[',i,'] '); readln(ni[i]) End; NNi[1]:=ni[1]; for i:=2 to n do NNi[i]:=NNi[i-1]+ni[i]; Writeln('Frecuencias Frecuencias'); Writeln('Absolutas(ni) Acumuladas(Ni)'); for i:= 1 to n do Writeln(ni[i]:8:3,' ',NNi[i]:16:3) END.