последовательность действительных чисел оканчивается нулём. найтиколичество членов этой последовательности

В чем проблема ? Что пробовала делать ? выглядит как приказ ...

приказ???? ни в коем случае))) ну не знаю я массивы ((((

i := 1;
while (i <= n) and (x[i] <> 0) do inc(i);
if i > n then writeln('bad sequence') else writeln(i - 1);