помогите з програмкой з однивимерними массивами.
не могу понять ни как.
Знаю што програмка простенькая.....

Підрахувати кількість та вивести індекси нульових елементів


начало прграмми. (точно не знаю ли правильное начало)

Program hfafajh;
var i:integer P:real;
begin
for:=1 to 10 do begin
writeln ('xc'.i.'y') Readln(x[i];
end;
i:=1 , R:=1
while i <=1
begin if