var a:array [1..10] of real;
s,i:integer;
Begin
{vvod tablicy}
for i := 1 to 10 do
if a[i]<>0 then s:=s+1;
writeln(s);
End.
