naj:=0; d:=0; for i:=1 to 31 do begin j:=1; while (j<=100) and (M[i,j]<=0) do j:=j+1; if j<=100 then begin min:=M[i,j]; max:=M[i,j]; for j:=j to 100 do if M[i,j]>max then max:=M[i,j] else if (M[i,j]>0) and (M[i,j]<min) then min:=M[i,j]; if max-min>naj then begin naj:=max-min; d:=i; end; end; end; writeln('deň najväčšieho rozptylu meraní = ', d);
var baliky:array[1..100] of integer; i,N,min,x:integer; begin // prečítanie N a poľa baliky for i:=1 to N div 2 do begin min:=0; x:=0; for j:=1 to N do if (baliky[j]<>0)and((min=0)or(baliky[j]<min)) then begin x:=j; min:=baliky[j]; end; baliky[x]:=0; end; // výpis poľa baliky – nemusí byť for i:=1 to N do write(baliky[i],' '); writeln; end;