массивы Опции

[kess]

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

[klem4]

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

[kess]

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

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

[klem4]

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