Последовательности, Паскаль

[Абай]

Последовательности, Паскаль

Series6. Дано целое число N и набор из N положительных вещественных
чисел. Вывести в том же порядке дробные части всех чисел из данно-
го набора (как вещественные числа с нулевой целой частью), а также
произведение всех дробных частей.

 

[Vladimir_S]

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.