Const n = 13; var a: array[1..n] of integer; i,k: integer; begin k: =0; write('введите массив a(',n,'): '); for i: = 1 to n do begin read(a[i]); if a[i] = 1 then k: =k+1 end; writeln('количество единиц: ',k); end. const n = 13; var a: array[1..n] of integer; i: integer; begin randomize; write('исходный массив: '); for i: = 1 to n do begin a[i]: =random(13)-6; write(' ',a[i]); if a[i] < 0 then a[i]: =a[i]+a[1] end; writeln; write('новый массив: '); for i: = 1 to n do write(' ',a[i]) end.