2. в массиве а: 7, 0, -2, 0, 3 все нулевые элементы заменить их индексами. вывести на экран новый массив.

Const n = 5;
var a:array[1..5] of integer;
i:integer;
begin
  a[1]:=7; a[2]:=0; a[3]:=-2;
  a[4]:=0; a[5]:=3;
  for i:=1 to n do if a[i]=0 then a[i]:=i;
  for i:=1 to n do write(a[i]:3);
end.

Тестовое решение:
 7  2 -2  4  3