Почему программа выдаёт только 2 значения? const n=10; var a: array [1..n] of integer; d,i: integer; pd: real; begin for i: =1 to n do a[i]: =random(5)+1; begin d: =0; pd: =0; if (a[i]=2) then d: =d+1; pd: =(d*100)/n; write(pd) end; end. программа написана в pasclabc.net

RealPacani    1   08.10.2019 00:30    2