Что надо переделать (или добавить) чтобы все работало? 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.