1) рисунок program test; const n = 10; var i,k,min,y:integer; b: array [1..n] of integer; begin min:=9999999999; for i:=1 to n do readln(b[i]);//заполнеяем массив for i:=1 to n do begin if b[i]=0 then inc(k); if b[i]