VovCos_1

Const
    A: Array [1..10] Of Real = (
        3, -4, 2.5, -0.1, -0.4, 15, -2.0, 7.1, 8.2, 0
    );
Var
    I, IC: Integer;
Begin
    WriteLn('Input array:');
    For I:= 1 To 10 Do Begin
        WriteLn('A[', I, '] = ', A[I] :6:6);
        If A[I] > 0 Then Inc(IC);
    End;
    WriteLn('Positive count: ', IC);
    ReadLn;
End.