Технический форум - Последовательности, Паскаль

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Последовательности, Паскаль (http://www.tehnari.ru/f41/t53085/)

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

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

Цитата:

Сообщение от Абай (Сообщение 536857)

Код:

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.