Задача 10.2. Знайти добуток всiх елементiв масиву В[8], що не пере- вищують 5. Надрукувати цi елементи.

Program Dob;
Const b:array[1..8]of real=(1.2,4,8,12,0.2,0.12,1.21,9);
Var
i:Integer;
D:Real;
Begin
{Обчислення добутку елементiв масиву}
D:=1;
For i:=1 to 8 do
 if b[i]<5 then
 begin
        d:=d+b[i];
 write(b[i]:8:2);
 end;
WriteLn;
WriteLn('d = ',d:5:2);
End.
Результати роботи програми:
1.20    4.00    0.20    0.12    1.21
d =7.73