Question

Найти номер первого нулевого элемента массива x1, x2, ....x20 и сумму элементов пришедствующих  ему

Answer 1

Var X: array [1..20] of integer;
     i, sum : integer;
BEGIN
for i:=1 to 25 do
read(X[i]);
sum:=0;
i:=1;
while X[i]<>0 do begin
sum:=sum+X[i];
i:=i+1;
end;
writeln('Первый нулевой элемент ', i);
writeln('Сумма элементов до нулевого  ', sum);
END.

Answer 2

К сожалению, вы не предоставили значения для массива x1, x2, ..., x20. Пожалуйста, укажите значения элементов массива, чтобы я мог найти номер первого нулевого элемента и сумму элементов, с ним связанных.