Question

Помогите пожалуйста с задачей. Дана числовая последовательность из N элементов. Вывести номера всех нулевых элементов.

Answer 1

const nx=100;var n,i,j,k:integer;R,b:Array[1..nx] of integer;Beginwrite('Введите n');Read(n);for i:=1 to n do beginR[i]:= random(5)-2;write(R[i]:3);if R[i] = 0 then begin b[i]:= i;k:= k +1;end;end;writeln;writeln('номера всех нулевых элементов ');for j:=1 to n doif b[j] > 0 then writeln(b[j]);end.