Что надо переделать (или добавить) чтобы все работало?program dfgvsdrfg; Var A: array [1..16] of integer; k,i:integer; begin writeln('исходные значения'); for i:=1 to 16 do begin A[i]:=random (41)-20; write (A[i], ''); end; writeln; write('нулевые значения имеют элементы с индексами:') for i:=1 to 16 do if A[i]=0 then write (i, ''); end.