Записать в массив x, состоящий из 20 элементов, нули. На паскале.

Пусть А - массив, тогда

FillChar(A, SizeOf(A), 0); // запишет нули в массив любой вменяемой размерности

только вот подозреваю, что преп ждет от вас цикла

for i:=1 to 20 do A[ i ] := 0;