Ответ:

Объяснение:

Пусть n - количество элементов массива a.

Тогда фрагмент программы будет такой:

for i:=1 to n do

 if (i<>n) then write(a[i], ' ') else write(a[i]);