Решение задачи ExamBegin43
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | uses PT4Exam;const R = 100;var m: array[1..R] of real; n, i: integer; p: real;begin Task('ExamBegin43'); p := 1; Readln(n); for i := 1 to n do begin Read(m[i]); if m[i] > 0 then p := p * m[i]; end; Write(p:4:2);end. |
