Pascal.
Заполнить массив A ,состоящий из N элементов , нулями​

Если с использованием const, то вот

Объяснение:

Непонятно зачем заполнять массив нулями, когда в нем по умолчанию все элементы равны нулю, но да ладно.

const N=10;

var

 a:array [1..N] of integer;

begin

for var i:=1 to N do

  a[i]:=0

end.