function ps(x:tstr):integer; var j,k:integer; begin k:=0; for j:=1 to m do if x[j]>0 then k:=k+1; ps:=k; end; procedure obmen(var max,min:tstr); var ch:tstr; begin ch:=max; max:=min; min:=ch; end;

1

vb