Цитата:
Сообщение от Абай
Series6. Дано целое число N и набор из N положительных вещественных
чисел. Вывести в том же порядке дробные части всех чисел из данно-
го набора (как вещественные числа с нулевой целой частью), а также
произведение всех дробных частей.
|
Код:
CONST
N=10;
VAR
A:Array[1..N] of Extended;
P:Extended;
i:Integer;
BEGIN
Randomize;
P:=1;
For i:=1 to N do
begin
A[i]:=Random*100;
Write(A[i]:7:3);
P:=P*Frac(A[i]);
end;
Writeln;
Writeln;
For i:=1 to N do
Write((A[i]-1.0*Trunc(A[i])):7:3);
Writeln;
Writeln;
Writeln('Product = ',P:20:18);
readln
END.