Const n=16; var x: array[1..n] of integer; i,k: integer; begin randomize; writeln('элементы массива'); k: =0; for i: =1 to n do begin x[i]: =random(51)-25; write(x[i]: 4); if x[i]< 0 then inc(k) end; writeln; writeln('количество отрицательных элементов равно ',k); end. тестовое решение: элементы массива 3 -14 -7 15 10 12 -11 -13 -21 -13 13 -17 9 -7 -24 20 количество отрицательных элементов равно 9
Популярные вопросы