Замените нулями все положительные элементы одномерного массива 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 > 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.