Поменяйте нулями все положительные элементы одномерного массива A длины N

Pascal

  const     
k = 10; 
var   
a : array [1..k] of integer;   
b,n,i,l : integer;     
begin   

//Формирование массива пропускаю

   
readln (n); // считываем длину      

//обработка массива   
for i := 1 to k do   
begin     
l := 0;     
b := a[i];     
While b gt; 0 do     
begin     
b := b div 10;     
l := l +1;     
end;     
if l = n then     
a[i] := 0;   
end;       

//вывод массива   
writeln();   
for i := 1 to k do     
write (a[i],' '); 
end.