Замените нулями все положительные элементы одномерного массива a длины n

256

319

Посмотреть ответы 2

Ответы на вопрос:

vektar1234

Информатика

4,8(21 оценок)

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.