Что надо переделать (или добавить) чтобы все работало? 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.
Ну и write (A[i], ''); и write (i, ''); правильнее сделать как (A[i], ' '); и write (i, ' '); (поставить пробел между кавычками).