последовательность действительных чисел оканчивается нулём. найтиколичество членов этой последовательности
В чем проблема ? Что пробовала делать ? выглядит как приказ ...
i := 1;
while (i <= n) and (x[i] <> 0) do inc(i);
if i > n then writeln('bad sequence') else writeln(i - 1);