Объяснение:
Пусть n - количество элементов массива a.
Тогда фрагмент программы будет такой:
for i:=1 to n do
if (i<>n) then write(a[i], ' ') else write(a[i]);
