Program p1; var a:array [1..8] of byte; i:byte; begin Writeln('Исходный массив'); for i:= 1 to 8 do begin a[i]:=random(5); write(a[i],' ') end; Writeln; Writeln('Отредактированный массив'); for i:= 1 to 8 do begin if a[i]=1 then a[i]:=0; write(a[i],' ') end; end.